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Preface 


The samples contained in this publication are provided for the support 
of education and installation of SNA products. The job control = and 
sample definitions must be adjusted for each system. The samples have 
not been submitted to a formal IBM test. The samples are not intended 
to be implemented as they are shown in this material. These samples are 
coded to a specific network configuration and terminal features and are 
not compatible with any other installation configuration or processing 
requirements. 
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CHAPTER 1 =: INTRODUCTION 


The purpose of this guide is to provide’ information that may help in 
installing SNA products on either a DOS/VS or OS/VS operating system. 
This document provides samples which sare coded to a specific network 
configuration and terminal hardware. The samples included in this 
document are included only aes a guide and should be updated for a 
specific installation. 


The samples in this guide will support the following products: IMS/VS, 
CICS/VS, TSO, JES2(MVS), RTAMCVS1), VTAM, ACF/VTAM, ACF/TCAM, TCAM 9, 
TCAM 10, NCP/VS CRel. 5), ACF/NCP/VS, RES CVS1), VSPC, and NOSP. Unless 
otherwise directed by the specific product guides, these coding samples 
are recommended for initisl system checkout. Every attempt hes been msde 
to provide coding samples that sre compatible with all of the IBM 
programs that support SNA. 


EE CE CERES 0 CESS 


Advanced Communications Function for the Network Control Program/Virtual 
Storage CACF/NCP/VS) 


Advanced Communications Function for the Telecommunications Access 
Method CACF/TCAM) 


Advanced Communications Function for the Virtual Telecommunicsations 
Access Method CACF/VTAM) 


Virtual Storage Access Method CVSAM) 

Customer Information Control System/Virtual Storage (CICS/VS) 
Information Management System/Virtual Storage CIMS/VS) 
Virtual Storage Personal Computing CVSPC) 

Network Operation Support Program CNOSP) 


Disk Operating System/Virtual Stoage CDOS/VS) 
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bee seins oe aavGniusl Storage 1 COS/VSI1) 
Remote Entry System CRES) 
Remote farninal Access Method CRTAM) | 
Operating System/Virtual Storage 2 COS/VS2) 
Multiple Virtual Storage (MVS) 
Single Virtual Storage (SVS) 
Time Sharing Option (TSO) 
Job Entry Subsystem 2 (JES2) 
a leesamaniestene dteusa veticn CTCAM) 
- Virtual Telecommunicst ions Access Method CVTAM) 
2741 Communications Terminal (2741) 
2740 Communications Terminal (2740) 
TWX Line Control Type CTWX) 
3270 Information Display System (3270) 
3600 Finance Communication System (3600) 
3650 Retail Store System (3650) 
3767 Communication Terminal (3767) 
3770 Data Communication System (€3770) 
3790 Communication System (3790) 


370473705 Network Control Program/Virtual Storage (NCP/VS) 


PAGE 1-2 SNA PRODUCT INSTALLATION GUIDE G320-6028 (2779) | 


DEVELOPMENT ENVIRONMENT 


CHAPTER 2 =: DEVELOPMENT ENVIRONMENT 


2-1 ? HARDWARE CONFIGURATION 


In the samples of this publication the following hardware was used: 


The central processor is a System/370 Model 158. The DOS/VS system was 
defined with 8.0 megabytes of real storage and 2.0 megabytes of virtual. 
Two 3340 drives are defined for the DOS/VS testing and operation. Two 
3330's are defined for the OS/VS1 system plus a DASD work pack. The 
OS/VS2 (MVS) system required two 3330 Model 1's, two 3330 Model ll's, 
and one 3340 disk drives. The MVS system was defined wits 6 Megabytes of 
real storage. Two 3705's are defined for sample purposes. One has 112K 
of storage and Channel Adapter Type 2. The second 3705 is a Model 2 
With 256K of storage and two Channel Adapter Type ¢'s. All IBM 3270 
products were available, various models of the IBM 377X product family 
were tested, and a IBM 3790 was used on dial facilities. 


6320-6028 (2/79) SNA PRODUCT INSTALLATION GUIDE PAGE 2- 


DEVELOPMENT ENVIRONMENT | 
2.2 : SOFTWARE RESOURCES 
- PROGRAMS INSTALLED 


NCP/VS 
Network Control Program/VS-OS/VS (Program number 5744-BA2) 


Network Control Program/VS-DOS/VS (Program number 5747-AJ2) 


ACF/NCP 
NCP/SSP (Required for ACF/NCP) (Program number 5747-CHL) 
ACF/NCP SSP | (Program number 5735-XX3) 
ACF/NCP PP | (Program number 5735-XX1) | 
DOS/VS 
Disk Operating System/VS (Program Number 5745-010) 
OS/VS 
OS/VS1 Release 6.0 7 (Program number 5741-V5S1) _ 
OS/VS2 Release 3.7 _ | (Program number 5752-VS2) — 
VTAM 
VTAM for DOS/VS (Program Number 5745-010) | 
VTAM (MVS) SU 1 “ (Program number 5752-VS2) 
TCAM/VS 
TCAM 9 (MVS) SU 2 (erevnan number 5752-VS2) 
TCAM 10 CMVS) SU 36 (Program number 5752-V5S2) 
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ACF/TCAM V1 


DEVELOPMENT ENVIRONMENT 


ACF/TCAM SCP SU59 CProgram number 

ACF/TCAM BASE SU59 (Program number 

ACF/TCAM MSNF SU59 (Program number 
ACF/VTAMRI1 

ACF/VTAM Release 1 —CD0S7V5) CProgram Number 

VTAM SCP for ACF/VTAM SU 40 

ACF/VTAM SU 35 for MVS (Program number 

ACF/VTAM Mutisystem Networking Facility 

(MSNF) SU 34 for MVS (Program number 
NOSP 

Network Operation Support Program 

SU 45 (Program number 
IMS/VS 

IMS/VS V1 R1.4 (Program number 

IMS/VS V1 R1.5 (Program number 
CICS/VS 

CICS/VS VIR3.0 CPTF 502) (Program number 
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5735-RC1) 


5735-RC1) 


5735-RC1) 


5747-RC3) 


5735-RC2) 


5735-RC2) 


5735-XX2) 


5740-XX2) 


5740~-XX2) 


5740-XX1 3 
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CHAPTER 3 : GENERAL INFORMATION 


3.1 +: ACCESS METHOD DEPENDENCIES 


The following table provides access method dependencies for specific NCP 
generation macros. 


Access’ | NCP Macro's ] 
Method | PCCU | BUILD | HOST 
| Macro | Macro | Macro 
| | MAXSUBA MAXBFRU | UNITSZ BFRPAD STATMOD 
| | 
VTAM/DOS | ONLY | Default=15 REQUIRED | DEFAULT=88 =15 =NO/YES 
| 
| | | 
| | | 
VTAM70S | ONLY | DEFAULT=15 REQUIRED | DEFAULT=84  =28 =YES 
a al | | | 
| | 
| | 
ACF/VTAM | ONLY | DEFAULT=15 REQUIRED | DEFAULT=64 }=0 =YES 
| I | 
| | | 
| | | 
TCAM 10 | NA | CINTRO | UNITSZ= MIN=17 =YES 
and { MACRO) [| KEYLEN=>44 
ACF/TCAM | | CINTRO 
| | | Macro) 
| | | 148 to 156CSTART) 
| | | 
| | 
EXTM | NA | DEFAULT=31 =10 | DEFAULT=156 =2 =NO 
| | CETMCFG CETMCFG | CETMFCG 
| | Macro) Macro) | Macro) 
| | 
| | | 
NCP | NA | NO DEFAULTS | NO DEFAULT =28 =NO 
| | | 
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3-2 


: DEVICE MAXDATA VALUES 


The following table specifies the MAXDATA value (PU macro) for various 
SNA physical units operating on an SDLC link. The MAXDATA operand must 


not be defaulted. 


DEVICE 


IBM 
IBM 


TBM 


IBM 
IBM 


IBM 


IBM 


IBM 
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3271/3275 


3274/3276 


3600 


3614 


3650 


3767 


3774/3775 


3776/3777 


3790 


i 


VALUE = BYTES 


261 - Maximum Value, Segmentation allowed. 
265 - Maximum Value, Segmentation allowed. 


VARIABLE ~- Function of buffer size 


defined in CPGENC5690). 
265 if not connected to 360X. 
265 - Required value, segmentation not ellowed. 
261 - Required value, PeSnenretTon not sllowed. 
265 - Required value, segmentation not sallowed. 


265/521 - Required value, segmentation not allowed. 
Host spplication must support same value. 
The NCP can be generated with 521 and the 
actual value specified in the Bind for the 
application to LU session. 


265 - Required value, segmentation not allowed for 
"Batch" sessions. | | 
Segmentation allowed for DSC LU's. 
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3-3 + DEVICE ERROR RECOVERY 


The following table lists the reccommended values for the RETRIES 
operand in the NCP 'LINE* and ‘'PU*' macros. 


¥ RETRIES OPERAND 


OPERAND 


»RETRIES = € m,t,n) | 

where m = immediate retries, 
t = psuse between retries, 
and n = retry cycles. 


for SDLC, if REPLYTO = 1, M = 5, t = 10, n = 3, 


eae retry cycle = (€€ 5 X 1 )+103X3)+€5X1) = 50 SECONDS 

DEVICE RECOVERY SEQUENCE REQUIREMENT 

IBM 3600 - function of 3600 CPGEN, value should be less than 
3600 generated time. 

IBM 3650 ~ 50 to less than 60 seconds. 

IBM 3767 - greater than 20 seconds. 

IBM 3790 - adjust for link quality, 60 seconds es a start. 

IBM 3770 _ " 

IBM 3270 CSDLC) My " 
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3-4  ? INSTALLATION SEQUENCE CVTAM) 
This installation sequence is only a guide snd many steps are omitted. 


OBTAIN MANUALS. 


Order all manuals necessary for the appropriate operating system. 


. ORDER PROGRAMS 


All the programs should be obtained from PID. 


SYSTEM INSTALLATION 


Determine the hardware configuration required for the system. The 
system design has to be approached from multiple levels. At least look 
at it with the following spproaches: | 


* PHYSICAL CONFIGURATION | | | 
It is necessary to plan the hardware configuration in order to 
generate the NCP load module, the local 3277 definition for VTAM, 
and the I/0 assignments for the system generstion phase. 


* OPERATING SYSTEM 
The operating system will only be concerned with the devices 
locally attached to the system. When generating the operating 
system, special - consideration must be given for the VTAM 
parameters, including the size of the partitions for DOS and the 
VTAM workspace for OS/VS1.. 7 : 


The following steps should allow the user to bring up the system and 
allow operation at various check points. 


1. SYSTEM DEFINITION 
Unless using OS/VS2, the default buffer parameters should not be 
used. The samples in this document can. be used, providing the 
network is similar to the samples. Care should be taken in the 
specification of LFBUFCDOS/VS) and IOBUFCOS/VS) to insure that the 
values for UNITSZ and MAXBFRU defined in the NCP sre used to 
calculate the buffer values. The quantity of LFBUF or IOBUF must 
exceed the requirement for MAXBFRU. The MAXSUBA value in’ the 
start definition should agree with the NCP value. All SUBAREA 
values should be checked to insure each major node has. an 
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exclusive value. 


2. START CONFIGURATION 

If local 3277's are avuilable, the initial configuration should 
only include the local 3277's and the application definition node. 
After these two nodes are active, then the NCP portion of the 
system can be checked out. If VTAM indicates an error in the node 
definition, it may not be necessary to stop VTAM. If the node did 
not become active, the node definition can be updated, and varied 
active by the console operator. If the node was activated by VTAM, 
the node must be varied inactive. In addition, if the system is 
OS/VS, the node name must be deleted from the SYSL.VTAMOBJ data 
set. Otherwise, when the node is activated sgain, the old 
defintion will still be used even though the definition source was 
updated. 


3. LOCAL 3270 DEFINITION 

For the first testing phase, the local definition should not 
include a LOGTAB or a LOGAPPL statement. All unavailable 3277's or 
328x's should be defined with an ISTATUS=INACTIVE. Only one 3277 
is required to check out that VTAM has initialized and that a VTAM 
user application works. before the "LOGTAB" operand is added, an 
Interpret table must be assembled, link-edited and stored in 
SYSI1.VTAMLIB, if OS/VS, or the core-image library, if DOS. The 
"‘LOGAPPL’ operand may be used, if the application name is 'NETSOL’ 
or the application name is defined in the application definition. 
The application program need not be available. 


GENERAL HINTS 


NRZI defaults to yes ona SDLC line. Normally, NRZI can be used with 
most modems. IBM integrated modems and the IBM 3872 require NRZI=YES. 
When in doubt, specify NRZI=NO, sand monitor MDR recordings for line 
errors and change if required. All SDLC PU types 1 and 2 will work 
without NRZI. 


NETSOL can be used to check out most basic devices before trying them 
With sn application program. It may easily be modified to provide 
special test messages. NETSOL can be run in its own region if 
appropriste JCL is generated. 


Remote 3270's will not be polled unless they are logged onto an 
application program. 
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- Dial ports will disconnect if not logged on to an application program 
before being used. 


To help determine the error condition, the use of line trace on the 
failing line should be considered. Also, before varying the cluster 
active, start IO trace on the NCP and the cluster. 


‘GENERAL OPERATING CONSIDERATIONS 


Retain information should always be obtained for VTAM snd NCP. There 
are problems described in Retain that can be bypassed by controlling 
operating procedures. 


The 370X, if required, will always be loaded when activated by VTAM if 
ANS is not specified in the NCP ‘BUILD’ macro and the NCP was not 
deactivated normally. If using PEP, ANS must be specified if VTAM is 
not to load the 370X. If the 370X does not contain the desired NCP 
losd module, VTAM will load the 370X with out operator intervention. 


Use of the 'F TPRINT’ command to print trace records during production 
should be avoided because 'TPRINT' will degrade the DOS/VS system. In 
fact, most DOS sand VTAM operations appear to wait until the TPRINT 
operation is completed. It may be necessary to develop a print 
application program that operates in one of the other partitions, 
instead of having VTAM do this function. 


If you give a command to activate a NCP that is already active, VTAM 
will try to activate all elements of the network defined to VIAM. This 
can cause a considerable slowdown as the NCP tries to activate 
terminals, clusters, etc., that may not be operstional. It is 
recommended that you define to VTAM only those resources that are 
physically available. | 


An application programmer should expect one character messages from 
3270's and test for "CLEAR" and ‘PF’ keys. 


When using the 3600, the 3600 must respond to the 'CLEAR' and the 
"UNBIND® in order to terminate a session. An application program 
running under DOS VTAM may not be cancelled until a response is sent 
back to VTAM. Always specify the time-out value in the 3600 CPGEN as 
greater than the total retry time of the NCP. 
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The following table indicates when 
The examples throughout the guide indicate 
The MODETAB and USSTAB examples include support for most applications. 
The should be modified to support 


user. 


|-------- |-------- |-------- 
| ACF/VTAM] 


| 
| 
| 
ILOGTAB | 
| 
| | 
[-ReseNs | 
| 
| 
| 
| 


| 
{USSTAB 


| ais aces ease an a 
| 
|MODETAB | 
[SSS See | 
| | 
| DLOGMOD | 
[SoS eS | 
| | 
ISSCPFM | 
SSeS | 
| 
[BNNSUP | 
pSSssse5 | 
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|ONLY 
| NETSOL 


ONLY 


IF | 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


START 


ey Uae Une wee tee ee ee oe 


CHAPTER & : 


VTAM SESSION PARAMETERS 


VTAM SESSION PARAMETERS 


VTAM ‘only’ parameters are required. 


NETSOL 
YES 


YES 


| et es ae te eee 
| BSC 

| 

[ cas eine ld a 
[VTAM II 
[YES; 
|ACF/VTAM| 
[NO IF | 
[PU = YES| 
(Sere | 
|ACF/VTAM| 
[IF Pu = | 
lYES | 


| YES | 


| YES | 


| [ 
| wp ae wer wee we Wee wo Oe | 


VTAM SESSION CONTROL PARAMETERS 
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OTHER 
BSC 


on qa Gen ee Ee ee ee ee 


the use of these parameters. 


only the applications required by the 
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| | 

| SNA | IBM | USER | COMMENTS | 

| | | DEFAULT] SUPP | | | 
(ees s= SSS -S<+ P-HSSses> i=-SSSes- a aa aaa at | 
[------- | -oSe eee | eee re | --~-----  Soheadashaietebnceatheeanede aces enaaianenaeaeneneatanaieanatatan | 
a | | | | REQUIRED FOR NON-SDLC LOGON VIA | 
[LOGTAB | NO | NO | YES | NETSOL. | 
{oe SeeSe [ ~------~ p=Sesee=> peo sese= dha a a a ac | 
| | YES | | | USSTAB OR FOR BOTH DOS/VS AND | 
[USSTAB | YES | CLOGON | YES | OS/VS LOGON CUSSTAB PREFERRED). | 
| | | APPLID)| — | 
(=reSe== ae pea SsSs5- [=s>2==<= PaaS SeG Sr SSeS Seer soe Sees esas se | 
l | | YES | YES ONE] REQUIRED IF APPLICATION DOES NOT | 
IMODETAB| YES | (3767) | MODETAB| SUPPLY BIND PARAMETERS. THE | 
| | | | PREFER.] DEFAULTS ARE NOT USABLE. | 
[oases pace SeSs [oS-eeese [see e== a al ar ad coal | 
| te | | POINTS TO ENTRY IN INDICATED OR | 
[DLOGMOD| YES | NO |[{ YES | IBM SUPPLIED MODETAB. L 
poSSeeoe pSa=SS25> [-------- [=S--+s== i aad a | 
| | | | | VTAM SUPPLIED LEADING GRAPHICS: | 
ISSCPFM | YES | YES | YES | 1) FORMATTED, DEFAULT 3600, 3650, | 
| | | | | 3790; 2) UNFORMATED USSSCx 3274, | 
| | I | 3276,3770; 3) 3271 BSC. USS 3270 | 
[SSeS ee= es =Se=Ss5- (=Seess== Saher SSeS aes ere aS See | 
| | | | 3 | 
[BNNSUP | YES | YES | NO - | REQUIRED FOR IBM 3271 Model 11712 | 

| | | ae 


me (7 Gm CED Ee VED Ge OD camp Gany Gee Cony Cae GP te Ee am Ue ee ee Gow Oe ee ee 


eee! SR CN ERENT MENTED eemermmsecmene 
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&.1 = INTERPRET TABLE EXAMPLE 


SAMPLE LOGON INTERPRET TABLE 


The following interpret table can be used with all levels of VTAM. It 
is only used by NETSOL and need not be coded if NETSOL is’ not used. 
NETSOL is normally required for devices supported by applications using 
the ‘BASIC’ mode interface. An interpret table is not required for 
remote 3271 BSC controllers when interfacing to ACF/VTAM. 
He HEHEHE HE HEHEHE HE HEHEHE HE HEHEHE HE DEE IE IE HE HE SEK HE IK DE HE DE DE HE DE DE DE IE DE DK DEE HE DE HEE HE DK DEE DE DE HK DE DE IK DE DE IE DE DEE HK DE EE EE HEHEHE HH 
¥ SOURCE FOR LOGON INTERPRET TABLE * 
HH HEHEHE DE HEHE DE DEE HE DE DEE DE DE DE DE HE DE DEE DE DE HE DK DEE DE DE DE DK DE DE DE DE DE DE DE DE DE DE DEE DK DE DE DE DE DE DE DE DE DE DE DK DE DE DE DK DE DE DE DE DE DE DE DE DE DE 
LOGTAB INTAB 

LOGCHAR APPLID=CAPPLICID, VAPPL),SEQNCE="VAPPL' 

LOGCHAR APPLID=CAPPLICID,VAPPL),SEQNCE='vappl’ 

LOGCHAR APPLID=CAPPLICID,CICS),SEQNCE="CICS' 

LOGCHAR APPLID=CAPPLICID,CICS),SEQNCE='cics' 

LOGCHAR APPLID=CAPPLICID, VTAMWHO) ,SEQNCE="WHO' 

LUGCHAR APPLID=CAPPLICID, VTAMWHO) ,SEQNCE='who' 

LOGCHAR APPLID=CAPPLICID,NOSP1),SEQNCE="NOSP* ACF/VTAM ONLY 

LOGCHAR APPLID=CAPPLICID,NOSP1),SEQNCE="nosp’* ACF/VTAM ONLY 

LOGCHAR APPLID=CAPPLICID,TSO),SEQNCE="LOGON* 3277/MVS ONLY 

LOGCHAR APPLID=CAPPLICID,TSO),SEQNCE="logon* 3277/MVS ONLY 

 LOGCHAR APPLID=CAPPLICID,ISTOLTEP),SEQNCE='"TEST' 

LOGCHAR APPLID=CAPPLICID, ISTOLTEP),SEQNCE='test' 

LOGCHAR APPLID=CAPPLICID,IMS),SEQNCE="IMS' OS/VS ONLY 

LOGCHAR APPLID=CAPPLICID,1IMS),SEQNCE=" ims’ OS/VS ONLY 

LOGCHAR APPLID=CAPPLICID, INQUIRY), SEQNCE=" INQUIRY’ 

LOGCHAR APPLID=CAPPLICID, INQ),SEQNCE="INQ? 

ENDINTAB. 

END 


NOTES- The interpret table is required in order to allow non-SDLC and 
local 3270CNON-SNA) terminals to ‘logon’ to application programs via the 
Network Solicitor. The appropriate System Programmers Guide for VTAM or 
ACF/VTAM describes the generation and purpose of the interpret table. 
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4.2 > MODETAB EXAMPLES 


SAMPLE MODETAB FOR IBM 3767 


ALL3767 MODETAB | bas —— | 
MODEENT LOGMODE=INTERACT, FMPROF=X'03",TSPROF=X'03", X 


PRIPROT=X'B1',SECPROT=X"A0",COMPROT=X'"3040' | 

MODEENT LOGMODE=IMSEXCP, FMPROF=X'03',TSPROF=X'03", | x 
PRIPROT=X'B1', SECPROT=X' 90", COMPROT=X'3040" 

MODEENT LOGMODE=DEFFLIP, FMPROF=X'03", TSPROF=X'03', x 
PRIPROT=X'F9", SECPROT=X"E8",COMPROT=X'3081". 

MODEENT LOGMODE=EXECFLIP, FMPROF=X'03',TSPROF=X'03", x 

| PRIPROT=X'F9", SECPROT=X'D8',COMPROT=X' 3081" 

MODEENT LOGMODE=EXECCONT, FMPROF=X'03",TSPROF=X'03", x 
PRIPROT=X'F9",SECPROT=X'D9", COMPROT=X'3041" 

MODEENT LOGMODE=BOB, FMPROF=X'03",TSPROF=X'03", x 
PRIPROT=X'"F9", SECPROT=X'"D8', COMPROT=X"3080" 

MODEEND | | 

END | _ 


NOTES~ Description and specification for MODETAB generation is found in 
the sppropriate System Programmers Guide for VTAM and ACF/VTAM. The 
component description manual for the 3767 should also be referenced. 
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SAMPLE MODETAB FOR 3270 (©3271 AND 3272 CONTROL UNITS). 


HE HEE HEHEHE HE HEHE DEE HE HEE DE IE HE HE DE DE DE DE HE DE DEK HE DEE EEE IE IE DEE DE IK HE IE EH DEE KE EEK EE HEH HE HK RHR 
* MODE TABLE FOR 3277 LOCAL (3272 Control Unit) 

* MODE TABLE FOR 3277 REMOTE (3271 Control Unit Model 11/12) 

* MODE TABLE FOR 3277 REMOTE (3271 Control Unit Model 1/72) 

HH HE HEHEHE IE HEHEHE HE HEE HE DE DE IEE DE IE IE HEE HEHE HE DIE HEHE HE HEHE HE IE DHE IEE EE EH HK HE HE IE HK EH EHH 
NOSPTAB MODETAB 

MODEENT LOGMODE=DSILGMOD, 
FMPROF=X'02',TSPROF=X'02*",PRIPROT=X'71", 
SECPROT=X'40',COMPROT=X'2000",RUSIZES=X"0000', 
PSERVIC=X'000000000000000000000200" 

MODEENT LOGMODE=S3270, xX 
FMPROF=X*'02", TSPROF=X'02',PRIPROT=X'71"', X 
SECPROT=X'40",COMPROT=X'2000',RUSIZES=X'0000', x 
PSERVIC=X"000000000000000000000200' 

MODEEND 

END 


Kx KX 


NOTES- This MODETAB is required if sessions are to be initiated by the 
application or the terminal contsins a LOGAPPL parameter. This MODETAB 
is also required for ACF/VTAM. The DSILGMOD entry is required for 
ACF/NOSP. 
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SAMPLE MODETAB FOR 3770 SDLC 


MODE3770 MODETAB wee Ri +h tes : 
ene tis MODEENT LOGMODE=BAT13770,FMPROF=X'03',TSPROF=X'03",PRIPROT=X' Bx 


1',SECPROT=X'"BO',COMPROT=X'7080',RUSIZES= X18585",  & 
PSERVIC=X'013100000000080000000000' ea » oa 4 
MODEENT LOGMODE=BATCH, FMPROF=X'03',TSPROF=X'03", > 
PRIPROT=X'A3',SECPROT= XT AL", COMPROT= =X? 7080", x 
RUSIZES=X'8585" , : 2 | 
MODEENT LOGMODE=INTERACT, EMPROF= X" 03", TSPROF= a 03", x 
~PRIPROT=X'B1',SECPROT=X"A0",COMPROT=X'3040'" | | 
-. MODEENT LOGMODE=NOCOMP, FMPROF=X'03',TSPROF=X'03-°, 0° x 
- PRIPROT=X"A1L',SECPROT=X'A1", COMPROT=X'7080' 
MODEENT LOGMODE= COMP, FMPROF=X'03',TSPROF=X'03', xX 
- PRIPROT=X'A3',SECPROT=X'A3",COMPROT=X'7080". | 
MODEENT LOGMODE=ASCII,FMPROF=X'03',TSPROF=X'03', X 
PRIPROT=X' Alt -SECFROTSX* AL" /COMPROT=X" 7880" 
_ MODEENT LOGMODE=BUF512,FMPROF=X"03',TSPROF=X'03", xX 
“% - PRIPROT=X'A3',SECPROT= X"A3", COMPROT= xX! 7080", X 
RUSIZES=X'8686' 
_ MODEENT LOGMODE=BUF256 , FMPROF= x 03°, TSPROF= ME0sts* «ho view & 
. PRIPROT=X'A3",SECPROT= ‘XTAS', COMPROT= X*7080', x 
RUSIZES=X'8585" | | 
_ MODEENT LOGMODE=CMPACT, FMPROF=3, TSPROF= -3,PRIPROT=X'A3", x 
— SECPROT=X'A1', COMPROT=X'7080',RUSIZES=X'8585', X 
PSERVIC= X"01106000F100808000010040" 
MODEEND 


END 


NOTES- Description and specification for MODETAB generation is found in 
the appropriate System Programmers Guide for VTAM and ACF/VTAM. The 
component description manusl for the 3770 should also be referenced. 
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SAMPLE MODETAB FOR IBM 3790 


3K HE HE HEE HE HEE HK HE EE DE DE IE DE IE DE DE HK DE DE SE DE DE DE HE DE DE DE DE DE SE DE DE DK DE EE DE SE HE KDE DE DE DE DE DE SE DE DE DE DE DE DE DE DE DE DE SE DE DE DE DE DE DE EE EE 


*% MODETAB FOR 3790 
He DE DEE DE IE HE HE DE DE DE DK DE DE HE DE DE DK HE IEE DE DE DK DE DE HE HE DE DE DE DK HE HK HEE DE DE DE DE HEE HEHE EK HE HE HE EE EK HH HE IE HE HE 


MODE3790 MODETAB 


BAT13790 MODEENT LOGMODE=BAT13790,FMPROF=X'03",TSPROF=X'03’, X 
PRIPROT=X*'00',SECPROT=X‘'00*,COMPROT=X'0000' 
INQ3790 MODEENT LOGMODE=INQUIRY, FMPROF=X'03",TSPROF=X'03', X 


PRIPROT=X'B1*,SECPROT=X‘'A0',COMPROT=X' 3040" 

¥ The following MODEENT is required for TSO via ACF/VTAM. 

EMU3790 MODEENT LOGMODE=EMU3790,FMPROF=X'03',TSPROF=X'03",PRIPROT=X'B1x 
", SECPROT=X'BO', COMPROT=X'3080°,RUSIZES=X'85C7'", % 
PSERVIC=X'020000000000000000000200' 

RJE3790A MODEENT LOGMODE=RJE3790A,FMPROF=X'03',TSPROF=X'03'",PRIPROT=X"Ax 
3',SECPROT=X'A1",COMPROT=X" 7080" ,RUSIZES=X'8585', * 
PSERVIC=X'O01L1L06000F100800000010040' 

RJE3790B MODEENT LOGMODE=RJE3790B, FMPROF=X'03",TSPROF=X‘'03",PRIPROT=X* Ax 
3°',SECPROT=X'A1L", COMPROT=X'7080' ,RUSIZES=X'8585', * 
PSERVIC=X'01102000F100800000010040' 

BAT23790 MODEENT LOGMODE=BAT23790,FMPROF=X'03',TSPROF=X'04"°,PRIPROT=X'"Bx 

| 1*,SECPROT=X*BO",COMPROT=X'7080' ,RUSIZES=A'8585", % 
PSERVIC=X'013100000000000000000000' 

BLK3790 MODEENT LOGMODE=BLK3790,FMPROF=X'03',TSPROF=X'03",PRIPROT=X'B1* 
", SECPROT=X'BO',COMPROT=X"3080',RUSIZES=X'8585', 
PSERVIC=X'010000000000000000000000" | 

$€$3790 MODEENT LOGMODE=S5C53790,FMPROF=X'03",TSPROF=X‘'03",PRIPROT=X'B1X 
*, SECPROT=X"BO',COMPROT=X'3080" ,RUSIZES=X'8585"', ¥ 
PSERVIC=X'010000000000000000000000' 

DSILGMOD MODEENT LOGMODE=DSILGMOD, FMPROF=X'03",TSPROF=X‘'03',PRIPROT=X'Bx 
1',SECPROT=X' 90", COMPROT=X'3080',RUSIZES=X'85C7', ss 
PSERVIC=X'020000000000000000000200' 

MODEEND 
END 


NOTES- Description and specification for MODETAB generation is found in 
the appropriste System Programmers Guide for VTAM and ACF/VTAM. The 
component description manual for the 3790 should also be referenced. 
The MODEENT "EMU3790" is required to support the Data Stream 
Compatibility interface with TSO. 
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-MODETAB INFORMATION FOR 3276 AND 32746 


The mode tables for the 3274-l1A, 3274-1C and 3276 are identical except 
for RU sizes and 3277 support. The RU sizes supported by the 
controllers sre shown below: © 7 


MAX RU size MAX RU size | 

controller | inbound to host outbound from host 
3276 2048 | unlimited 
~3274-1C | 1024 <s | unlimited 


3274-14 1024 | 1536 


One mode table for the displays attached to each controller type is 
included. This allows independent RU size selection based on the 
controllers capabilities. One mode table would suffice if inbound RU 
wes Limited to 1024 and outbound RU size was Limited to 1536. Mode 

table entry names sre the same in each table to sllow the use of one USS 
table for all these terminals. 


One mode table is included for all printers regardless of controller 
attachment. This was done for two reasons: | 


1. NOSP requires all mode table entry names to be DSILGMOD. This 
precludes having both the NOSP i and NOSP printer entries 
in the same table. 

2. Since it was decided to use the same printer RU sizes with all 
controllers, the printer entries in each table would have been 
identical if they were included in each controller table. 


For this installation it was decided to set pacing and vpacing values in 
the terminsl definitions (NCP and VBUILD) to zero and override those 
values when desired by utilizing the mode table parameters PSNDPAC and 
SRCVPAC. Displays and DSC printers normally run with pacing set to 
zero. SCS printers, however, require & non-zero pacing count. Since a 
3287 or 3289 printer can operate in etther DSC or SCS mode it is not 
possible to have different pacing counts for the same printer if the 
pacing is determined by the terminal definition. In this installation, 
for example, a 3289 printer could be used with IMS/VS by specifying the 
mode table entry SCS4K. It could slso be used in DSC mode by another 
application by specifying the mode table entry DSC4&K. 


There are some special considerations for printers operating in SC§ 
mode. For 3287 printers the pacing count, RUSIZE and PSERVIC values 
depend on the buffer size in the printer. The 3287 printer has a 2K 
buffer as a standard feature anda ¢&K buffer as an optional festure. 
The mode table entry names in these examples indicate their respective 
printer buffer sizes. The 3289 printer has a 4K buffer as a standard 
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VTAM SESSION PARAMETERS | 


festure. In all cases a determination must be made regarding the pacing 
count and RU size to be used. Many factors may enter into the decision, 
but the most important performance objective is to achieve overlap of 
printing with dats transmission. In these examples, the rationale used 
for tha trade-off between pacing count and RU size was to set the pacing 
count to one and set the RU size to the highest value Cup to 1024) that 
would still allow printing and transmission to overlap. The 1024 byte 
RU size specified for printers with s 4K buffer is not the absolute 
maximum. The actual maximum RU size depends on the controller type and 
model and can be determined by using the formulae described in the 3270 
Component Description manual (CGAZ27-2749) in the section "RU Lengths". 
It was considered more practical to use 2s common RUSIZE than to set 
individual maximum sizes. 1536 is actually the maximum common RU size 
that could have been used, but it appesrs that there is little, if any, 
performance advantage in using sn RUSIZE greater than 1024. If an 
application program limits RU lengths to something less than 1024, it 
may be advsntagous to use a pacing count greater than one. For an RU 
size of 256 a pacing count of 3 could be beneficial. Pacing counts 
greater than 3 would not generally be recommended unless the RU size is 
much smaller. 
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VTAM SESSION PARAMETERS 
SAMPLE MODETAB FOR IBM 3274-1A CLOCAL ATTACHED) 


x MODE TABLE FOR 3274-1A DISPLAYS 
NEE HEH HEH HEH HEHEHE IIE DEB 


MT3274A MODETAB 


MODEENT LOGMODE=T3278M2, X 
FMPROF=X'03",TSPROF=X' 03", PRIPROT= X'B1’, x 
SECPROT=X'90", COMPROT=X'3080",RUSIZES=X'87C7", X 
PSERVIC=X'020000000000185018507F00" | 

MODEENT LOGMODE=T3278M3, ie X 
FMPROF=X'03",TSPROF= X"03",PRIPROT=X'B1', X 
SECPROT=X'90',COMPROT=X'3080",RUSIZES=X'87C7', X 


| PSERVIC=X'020000000000185020507F00' 

MODEENT LOGMODE=T3278M4, | x 
FMPROF=X'03',TSPROF= X'03",PRIPROT= XBL, X 
SECPROT=X'90",COMPROT=X'3080',RUSIZES=X'"87C7", x 
PSERVIC=X'02000000000018502B507F00' 

MODEENT LOGMODE=T3278M1, 

FMPROF=X'03", TSPROF=X'03",PRIPROT=X'B1', 
SECPROT=X'90', COMPROT=X'3080',RUSIZES=X'87C7', 
PSERVIC=X'0200000000000C280C507F00" 

MODEENT LOGMODE=DSILGMOD, - MODEL 4 
FMPROF=X'03",TSPROF=X'03',PRIPROT=X'Bl', 
SECPROT=X'90', COMPROT=X'3080",RUSIZES=X'87C7"', 
PSERVIC=X'02000000000018502B507F00" 

MODEENT LOGMODE=1T3277M2, 

FMPROF=X'03", TSPROF=X'03",PRIPROT=X'B1', 
SECPROT=X'90', COMPROT=X'3080",RUSIZES=X'87C7", 
PSERVIC=X'02000000000C000000000200" 

MODEENT LOGMODE=T3277M1, | 
FMPROF=X'03",TSPROF=X'03',PRIPROT=X'B1', 
SECPROT=X'90', COMPROT=X'3080',RUSIZES=X'87C7", 
PSERVIC=X'020000000000000000000100" 

MODEEND | 

END 


MK KR KKK x XK MK 


KM XK XK 


NOTES- Description and specification for MODETAB generation is found in 
the appropriate System Programmers Guide for VTAM and ACF/VTAM. The 
component description manual for the 3270 should also be referenced. 
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SAMPLE MODETAB FOR IBM 3274-1C CREMOTE) 


HEHE HEH DE DE DE DE HEHE HE DE DE DE DE DE DE HE HE IE DE DE DE DK DE DK DE DE DE HE DE DK DE DE DE HE HE IK DE DDE DE DE DE DK DE DE DE IE DE DK DE DE DE HE DE DK DK DE DE DE EE EK EE HEE 
* MODE TABLE FOR 3274-1C DISPLAYS 

HE HE HEHE HE HK HE HE HE HE HE HE HE HE HEHE HE HEHE HE HE DE HE HEE EK KE IE HK IE EE EE EE HE HE HE EE HE KE HE HK KE HE HK KE OK IE HE HE DE DK EE EE EK EE EEE EE 
MT3274C MODETAB 

MODEENT LOGMODE=T3278M2, 
FMPROF=X'03",TSPROF=X'03',PRIPROT=X'B1', 
SECPROT=X'90' ,COMPROT=X'3080'",RUSIZES=X'87F8', 
PSERVIC=X"'020000000000185018507F00' 

MODEENT LOGMODE=T3278M3, 
FMPROF=X‘'03",TSPROF=X'03',PRIPROT=X'B1", 
SECPROT=X'90* ,COMPROT=X'3080',RUSIZES=X'87F8', 
PSERVIC=X'020000000000185020507F00' 

MODEENT LOGMODE=T3278M4, 
FMPROF=X'03",TSPROF=X'03',PRIPROT=X'BI’, 
SECPROT=X'90', COMPROT=X'3080',RUSIZES=X'"87F8', 
PSERVIC=X‘'02000000000018502B507F00' 

MODEENT LOGMODE=T3278Ml1, 
FMPROF=X'03',TSPROF=X'03',PRIPROT=X'BI1', 
SECPROT=X*90' , COMPROT=X‘'3080',RUSIZES=X'8/7F8', 
PSERVIC=X'0200000000000CZ280C507F00' 

MODEENT LOGMODE=DSILGMOD, MODEL 4 
FMPROF=X'03',TSPROF=X'03',PRIPROT=X'Bl', 
SECPROT=X"A0",COMPROT=X'3080",RUSIZES=X'"87F8', 
PSERVIC=X*02000000000018502B507F00" 

MODEENT LOGMODE=T3277M2, 
FMPROF=X*'03',TSPROF=X'03',PRIPROT=X'BIL’, 
SECPROT=X*90",COMPROT=X'"3080",RUSIZES=X'87F8', 
PSERVIC=X*020000000000000000000200' 

MODEENT LOGMODE=T3277Ml1, 
FMPROF=X'03',TSPROF=X'03',PRIPROT=X'B1', 
SECPROT=X'90",COMPROT=X'3080",RUSIZES=X'87F8', 
PSERVIC=X'O020000000000000000000100' 

MODEEND 

END 


«x MK OK x KOK «Mm K XK mM MK MK xm KK «<— xX XK 


«x MK MK 


NOTES~ Description and specification for MODETAB generation is found in 
the appropriate System Programmers Guide for VTAM and ACF/VTAM. The 
component description manual for the 3270 should also be referenced. 
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VTAM SESSION PARAMETERS 
SAMPLE MODETAB FOR IBM 3276 (REMOTE) 


titetttecetrsstetttserettteresrttt tr ettts set ister tits titer ttt reteset 
* MODE TABLE FOR 3276 DISPLAYS | 

HHH HH HEH HHH HHH HHH HH HHH HHH HH HHH HEHEHE HH II 
MT3276 MODETAB 


MODEENT LOGMODE=T3278M2, X 
FMPROF=X'03',TSPROF=X'03',PRIPROT=X'B1", X 
SECPROT=X*'90',COMPROT=X'3080'",RUSIZES=X'88F8", X 
PSERVIC= X*020000000000185018507F00" | 

MODEENT LOGMODE=T3278M3, | X 
FMPROF=X'03",TSPROF=X'03",PRIPROT=X'Bl’, X 
SECPROT=X*90",COMPROT=X'3080",RUSIZES=X'88F8", X 


PSERVIC=X" 020000000000185020507F00" 

MODEENT LOGMODE=T3278M4, X 
FMPROF=X'03',TSPROF=X' 03", PRIPROT=X"B1", X 
SECPROT=X'90",COMPROT=X'3080",RUSIZES=X'88F8", X 
PSERVIC=X*O02000000000018502B507F00' 

MODEENT LOGMODE=T3278M1, 
FMPROF=X'03'°,TSPROF=X'03",PRIPROT=X'B1’, 
SECPROT=X‘'90', COMPROT=X'3080" ,RUSIZES=X'388F8', 
PSERVIC=X'0200000000000C280C507F00' 

MODEENT LOGMODE=DSILGMOD, MODEL 4% 
FMPROF=X'03',TSPROF=X'03",PRIPROT=X'B1', 
SECPROT=X'AO*, COMPROT=X'3080",RUSIZES=X'87F8', 
PSERVIC=X*02000000000018502B507F00° 

MODEEND 

END 


x KK 


KKM 


NOTES- This MODETAB provides session parameters for the IBM 3276 for 
various types of sessions. Description and specification for MODETAB 
generation is found in the appropriate System Programmers Guide for VTAM 
and ACF/VTAM. The component description manual for the 3278 should also 
be referenced. 
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VTAM SESSION PARAMETERS 


SAMPLE MODETAB FOR IBM 3287 AND 3289 PRINTERS 


DE IE HE HEHE HEE HE SE IE HK EK DE EK SE EE SK HE IK DE DE EE SE IE SEK IE DE DE DK IE HE KE EE SK KE DE DEE DE IE DE SE SE HE DE DE HE DE DE IE EE HE OK DEE DE EEE EE KK 
* MODE TABLE FOR 3287 & 3289 PRINTERS 

HK HE HE HK DE HE HE HE EE EE HE HE EE IE EE HE HE HE IK EE EK HE DE EK IK DE DE SE SE DE EK DE DE HE DK DE HE DE HE EE EE DE SE EE HE HEHE KE HE HE EE EE EE EE 
MTNDSPTR MODETAB 

MODEENT LOGMODE=SCS, 
FMPROF=X*'03',TSPROF=X'03',PRIPROT=X'B1', 
SECPROT=X'90",COMPROT=X'3080',RUSIZES=X'87C6', 
PSERVIC=X'O1000000E100000000000000', 
PSNDPAC=X'01",SRCVPAC=X'01" 

MODEENT LOGMODE=DSC4K, 
FMPROF=X'03',TSPROF=X'03",PRIPROT=X'Bl1', 
SECPROT=X'90",COMPROT=X"3080',RUSIZES=X'8787", 
PSERVIC=X'03000000000018502B507F00" 

MODEENT LOGMODE=DSCe2kK, 
FMPROF=X‘'03',TSPROF=X'03',PRIPROT=X'"Bl1', 
SECPROT=X'90',COMPROT=X'3080' ,RUSIZES=X'8737', 
PSERVIC=X'030000000000185018507F00" 

MODEENT LOGMODE=DSILGMOD, 
FMPROF=X'03",TSPROF=X'03",PRIPROT=X'Bl1', 
SECPROT=X'90', COMPROT=X*"3080'",RUSIZES=X'8787', 
PSERVIC=X'O1LODQ0OD000E1O0OO0OCOO0000NDN', 
PSNDPAC=X'01*,SRCVPAC=X'O01" 

MODEEND 

END 


mM KK KK OK MK KK 


Mm KKK 


NOTES- This MODETAB provides session parameters for the IBM 3287 and 
3283 printers for various types of sessions. Description and 
specification for MODETAB generation is found in the appropriate System 
Programmers Guide for VTAM and ACF/VTAM. The component description 
manusl for the 3270 should also be referenced. 
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4.3 > USSTAB EXAMPLES 


USSTAB FOR 3271 SDLC OR BSCCACF/VTAM ONLY). 


DEDEDE HEE DE HE DE HE DE HE IE IE IE DE DK HE DE DK HE DE DE DE HE DE DE DE DE DK DE DE DE DE DE DE IE IE DE DE DEE DE DE DK IC DE DK IE DE DK DK OE DHE DED DK 3 DE DK DE DE DE DE DE DE DE DK IE DEK 
* USSTAB FOR 3271 MOD. 11412 CVTAM AND ACF/VTAM) 
* USSTAB FOR 3271 MOD. 172: CACF/VTAM) 

HE EH HEH DHE EH HK EE HK DE DEK HEE I HE DE DK HE IE DE DK HEE DHE DE DE HE DE DDE DE DK HE DE DE DK DE ED DK DE DE DK HE DE DK HC DE DE IE DE BE DK IK DE DE DK IE DE DK IC EE 
VUSS3270 USSTAB 


LOG 


TSO 


NOSP 


CICS14 


CICS 


TEST 


CICS13 


IMS 


VSPC 


TCAM 


VTAMWHO 


LOGOFF 
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USSCMD CMD=LOG,REP=LOGON, FORMAT=BAL 

USSPARM PARM=P1,REP=APPLID 

USSPARM PARM=P2,REP=LOGMODE 

USSCMD CMD=TSO,REP=LOGON, FORMAT=BAL 

USSPARM PARM=APPLID,REP=APPLID, DEFAULT=TSO 
USSPARM PARM=LOGMODE,REP=LOGMODE, DEFAULT=S$3270 
USSPARM PARM=P1,REP=DATA 

USSCMD CMD=NOSP,REP=LOGON, FORMAT=BAL 

USSPARM PARM=APPLID,REP=APPLID, DEFAULT=NOSP1 
USSPARM PARM=LOGMODE,REP=LOGMODE, DEFAULT=DSILGMOD 
USSPARM PARM=P1,REP=DATA 

USSCMD CMD=CICS14,REP=LOGON, FORMAT=BAL 

USSPARM PARM=APPLID,REP=APPLID,DEFAULT=CICS14 
USSPARM PARM=LOGMODE, REP=LOGMODE, DEFAULT=S3270 


USSCMD CMD=CICS,REP=LOGON, FORMAT=BAL 


USSPARM PARM=APPLID,REP=APPLID, DEFAULT=CICS 
USSPARM PARM=LOGMODE,REP=LOGMODE, DEFAULT=S3270 
USSCMD CMD=TEST,REP=LOGON, FORMAT=BAL 


- USSPARM PARM=APPLID,REP=APPLID, DEFAULT=ISTOLTEP 


USSPARM PARM=LOGMODE,REP=LOGMODE, DEFAULT=S3270 
USSCMD CMD=CICS13,REP=LOGON, FORMAT=BAL 

USSPARM PARM=APPLID,REP=APPLID, DEFAULT=CICS13 
USSPARM PARM=LOGMODE,REP=LOGMODE, DEFAULT=S3270 
USSCMD CMD=IMS,REP=LOGON, FORMAT=BAL 

USSPARM PARM=APPLID,REP=APPLID, DEFAULT=IMS 
USSPARM PARM=LOGMODE,REP=LOGMODE, DEFAULT=S$3270 
USSCMD CMD=VSPC,REP=LOGON, FORMAT=BAL 

USSPARM PARM=APPLID,REP=APPLID, DEFAULT=V¥SPC 
USSPARM PARM=LOGMODE,REP=LOGMODE, DEFAULT=S3270 
USSCMD CMD=TCAM,REP=LOGON, FORMAT=BAL 

USSPARM PARM=APPLID,REP=APPLID, DEFAULT=TCAMTCAM 
USSPARM PARM=LOGMODE,REP=LOGMODE, DEFAULT=$3270 
USSCMD CMD=WHO,REP=LOGON, FORMAT=BAL | 
USSPARM PARM=APPLID,REP=APPLID, DEFAULT=VTAMWNHO 
USSPARM PARM=LOGMODE,REP=LOGMODE, DEFAULT=S3270 
USSCMD CMD=LOGOFF,REP=LOGOFF, FORMAT=BAL 
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% 
3 


G320-6028 (2/79) 


USSPARM PARM= 


PLID,REP=APPLID 


USSPARM PARM=TYPE,DEFAULT=COND 
USSPARM PARM=HOLD,DEFAULT=YES 


% THE FOLLOWING CODE IS POSITIONA! LY DEPENDENT 


VTAM SESSION PARAMETERS 


DO NOT CHANGE 


XIF DOS/VS, A CHARACTER IS REQUIRED IN COLUMN 16 OF THE TEXT ON 
* ALL THE STATEMENTS CONTAINING 71 BLANKS. 
MESSAGES USSMSG MSG=1,TEXT="MAXIMUM MESSAGE 


USSMSG 


USSMSG 


USSMSG 


USSMSG 


USSMSG 


USSMSG 


USSMSG 


USSMSG 


G320-6028 (2/79) 


MSG=2, TEXT="MAXIMUM 


MSG=3,TEXT="MAXIMUM 


MSG=4,TEXT="MAXIMUM 


MSG=5,TEXT="MAXIMUM 


MSG=6,TEXT="MAXIMUM 


MSG=7,TEXT="*MAXIMUM 


MSG=0,TEXT="MAXIMUM 


MSG=10,TEXT="MAXIMUM MESSAGE 
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MESSAGE 


MESSAGE 


MESSAGE 


MESSAGE 


MESSAGE 


MESSAGE 


MESSAGE 


Mm KK MK Mm KK OK MK KX x KKK x KM KK mM KK MK mM KK MK mM KK MK 
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VTAM SESSTON PARAMETERS. 


PATCHBK EQU % 7 

ORG ISTTOOOL+I ORG BACK TO OVERLAY MESSAGE 
MSGIS EQU % | | = 

DC X'11C0260",X*1DE8' 7 

DC C’'INVALID COMMAND SYNTAX, ENTER: ',X"1LICSFO* 

DC C'LOG applid logmode data Or:' * 

DC X'11C6D21D60" 

DC C'CICS14",X*LIC7E3" 

DC C'CICS13",X"11C8F3! 

DC C'TSO tsoid/password',X'1l14AC3' 

DC C'NOSP*,X*1LIGBD3" 

DC C’TEST",X*LI4CE3" 

DC C'WHO',X"1L1L4DF3' 

DC C'VSPC ID=nnnnnn',X"lL1¢FC3! 

DC C'IMs’ | 
MSGIE EQU x | 

ORG ISTTOO002+t]1 ORG BACK TO OVERLAY MESSAGE 
MSG2S EQU * 

DC X'110260',X"1DE8' 

DC C'% COMMAND NOT RECOGNIZED, ENTER:',X"11C3FO" 

DC C'LOG applid logmode dats Or?! 

DC X'11C6D21D60" 

DC C'CICS14¢",X"11C7E3" 

DC C'CICS13",X*1L1C38F3" | 

DC C'TSO tsoid/password',X'114AC3" 

DC C'NOSP',X"1LIGBD3" 

DC C'TEST',X"1LI14CE3' 

DC C'WHO',X*LIGDF3’ 

DC C'VSPC ID=nnnnnn',X"1LL4FC3" 

DC CTIMS* 
MSG2E EQU xX 

ORG ISTTOOOS+1 ORG BACK TO OVERLAY MESSAGE 
MSG3S EQU x 

DC X'110260°' SKIP TO LINE 2 

DC C'% PARAMETER NOT RECOGNIZED, ENTER:',X'1LIC3FO! 

DC C*LOG applid logmode data Or:' 

DC X'LIC6D21D60' 

6m CrCICS14",X*1L1C7E3" 

DC C°CICSI3" X'LIC3F3!' | 

DC C'TSO tsoid/password',X'114AC3' 

DC C'NOSP',X*1l14BD3" 

DC C'TEST®,X*1L14CE3" 

DC C'WHO',X*'LIGDF3' 

DC C’VSPC ID=nnnnnn',X"1L14FC3" 

DC CrIMSs' 
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MSG3E EQU 
ORG 
MSG4S EQU 
DC 
DG 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
MSGS4E EQU 
ORG 
MSG5S EQU 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
MSG5E EQU 
ORG 
MSG65 EQU 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
MSG6E EQU 
ORG 


G320-6028 (2/79) 


VTAM SESSION 


% 

ISTTO004+1 ORG BACK TO OVERLAY MESSAGE 
¥ 

X'11C260' 

C'% PARAMETER INVALID, ENTER: ",X'1LIIC3FO' 
C®*LOG applid logmode data Or:' 
X*11C6D21D60° 

C'CICS14'",X'1LLIC7E3’ 

C'CICS13'", X'1LIC&F3' 

C*TSO tsoid/password',X"*114AC3"* 
CYNOSP',X'1L1I4BD3' 

C'TEST'’,X"114CE3' 

C'WHO',X*114DF3' 

C'¥VSPC ID=nnnnnn' 

X'L1L4FC3" 

C'IMS' 

X?1150D2"* 

C'NOTE: The application may not be active’ 
% 

ISTTOOO5+1 ORG BACK TO OVERLAY MESSAGE 
% 

X*'11C260' 

C®UNSUPPORTED FUNCTION, ENTER: *,X*LIC3FO' 
C'LOG applid logmode data Or:’ 
X'11C6D21D60' 

C'CICS14",X'1LIC7E3' 

C'CICS13',X*t11C8F3' 

C*TSO tsoid/password'’,X'1l14AC3' 
C’NOSP’,X*114BD3" 

C'TEST*,X"'114CE3" 

C'WHO',X'LI4DF3' 

C'VSPC ID=nnnnnn! 

X'1L1L4FC3* 

CrIMs’ 

x 

ISTTO006+1 ORG BACK TO OVERLAY MESSAGE 


¥ 


X'11C260" 
C*SEQUENCE ERROR:'* 
X'11C6D21D60"* 


PARAMETERS 


C’'l. You are attempting to logoff from a terminal '* 


C'that is not in session’ 

X*1L14CE3' 

C'2. You are sattempting to logon from a terminal 
C’is already in session’ 

X*114FC3' 

x 

ISTTOOO7+1 ORG BACK TO OVERLAY MESSAGE 
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that ° 
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VTAM SESSION PARAMETERS 


MSG7S 


MSG7E 


MSGOS 


MSGOE 


MSGlOS 


MSG1LOE 


EQU 
DC 


be 


DC 
DC 
DC 
DC 
DC 
DC 
DC 
EQU 
ORG 
EQU 
DC 
DC 
EQU 


ORG 


EQU 
Dc 
DC 
DC 
DC 
EQU 
ORG 


% 


X'1LIC260' | 

C*SESSION NOT BOUND BECAUSE: '* 
X’'11C6D21D60" | —_ 
C'l. This terminal is already in session’ 
X'LI4CES" | 


C'2. The host application rejected the logon request’ 
X"LI4FC2' | | 

C’3. The terminal rejected the bind’ 

X'1LIGFC3' | 

% | - | 

ISTTOOCS+t1 ORG BACK TO OVERLAY MESSAGE 

% 

X'110260' | | 

C'COMMAND COMPLETED OK’ | 

x 

ISTTOOG9+1 ORG BACK TO OVERLAY MESSAGE 

% 7 | 

X'11C0150" 

Cc’ PALO ALTO SYSTEMS CENTER, ACF/VTAM SYSTEM® 
X'LIC3SF2' 4 | | 

C'For logon command syntax, press enter’ 

x 

PATCHBK 


* MAKE SURE EACH MESSAGE DOES NOT EXCEED 249 BYTES 


MSGIL 
MSG2L 
MSG3L 
MSG4L 
MSG5L 
MSG6L 
MSG7L 
MSGOL 
MSGIOL 
END 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


(MSG1E-MSG1S) 
(MSG2E-MSG2S) 
(MSG3E-MSG3S) 
(MSG4E-MSG4S) 
(MSG5E-MSG5S) 
(MSG6E-MSG6S) 
(MSG7E-MSG7S) 
(MSGOE-MSG0S) 
(MSG10E-MSG10S) 


USSEND 


END 


NOTES- This USSTAB simplifies operator logon from the 3271 Model 11/12 
under VTAM 2 and for 3271's with PU=YES under ACF/VTAM. Description and 
specification for USSTAB generation is found in the appropriate System 
Programmers Guide for VTAM and ACF/VTAM., 
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VTAM SESSION PARAMETERS 


USSTAB FOR 3767 SDLC 


BE HEHE HK HE HE HE HE DE HE HK IK IK DE SEE IE HK HEE DE IE DE HE DEE SE EK DE DK DE IE IE EE DE IE SEE DE DEE EE DE EK SE EE EEK DE DE EEE EEK EEK KR 


* USSTAB 


FOR 3767 % 


HEHE HE DE HE EE EE DE DE DE DE SE DE SEE EEE DE DE DE DE DK DE DE DE DE DK DE DK DE IE DE DE IE HEE HE HE HEHE EEK EK EE HD KDE DEDEDE HI KE I EK HE EE IK 
ASUSSTAB USSTAB 


LOG 


IMS 


CIcs 


TSO 


VAPPL 


TEST 


LOGOFF 


EOD 


NOTES- 


USSCMD CMD=L0G,REP=LOGON, FORMAT=BAL 
USSPARM PARM=P1,REP=APPLID 

USSPARM PARM=P2,REP=LOGMODE, 

USSPARM PARM=P3,REP=DATA 

USSCMD CMD=IMS,REP=LOGON, FORMAT=BAL 
USSPARM PARM=APPLID, DEFAULT=IMS 
USSPARM PARM=LOGMODE, DEFAULT=INTERACT 
USSPARM PARM=ID,REP=DATA 

USSCMD CMD=CICS,REP=LOGON, FORMAT=BAL 
USSPARM PARM=APPLID,DEFAULT=DBDCCICS 
USSPARM PARM=LOGMODE, DEFAULT=INTERACT 
USSPARM PARM=DATA 

USSCMD CMD=TSO,REP=LOGON, FORMAT=BAL 
USSPARM PARM=APPLID,DEFAULT=TSO 
USSPARM PARM=LOGMODE, DEFAULT=INTERACT 
USSPARM PARM=DATA 

USSCMD CMD=VAPPL,REP=LOGON, FORMAT=BAL 
USSPARM PARM=APPLID, DEFAULT=VAPPL 
USSPARM PARM=LOGMODE, DEFAULT=INTERACT 
USSPARM PARM=DATA 

USSCMD CMD=TEST,REP=LOGON, FORMAT=BAL 
USSPARM PARM=APPLID, DEFAULT=ISTOLTEP 
USSPARM PARM=LOGMODE, DEFAULT=INTERACT 
USSPARM PARM=DATA 

USSCMD CMD=LOGOFF, FORMAT=BAL 

USSPARM PARM=APPLID 

USSPARM PARM=TYPE, DEFAULT=COND 
USSPARM PARM=HOLD, DEFAULT=YES 

USSCMD CMD=E0D,REP=LOGOFF, FORMAT=BAL 
USSPARM PARM=APPLID 

USSPARM PARM=TYPE, DEFAULT=UNCOND 
USSPARM PARM=HOLD, DEFAULT=NO 

USSEND | 

END 


This USSTAB simplifies operator logon from the 3767 SDLC unit. 


Description and specification for USSTAB generation is found in the 
appropriate System Programmers Guide for VITAM and ACF/VTAM. 
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USSTAB FOR 3770 SDLC 


ASUSST70 USSTAB 


LOG 


SIGNON 


IMS 


TEST 


RMT 1 


POWER 


LOGOFF 


EOD 


SIGNOFF 


USSCMD CMD=LOG,REP=LOGON, FORMAT=BAL 
USSPARM PARM=P1,REP=APPLID 

USSPARM PARM=P2,REP=LOGMODE 

USSPARM PARM=P3,REP=DATA 

USSCMD CMD=SIGNON,REP=LOGON, FORMAT=BAL 
USSPARM PARM=APPLID, DEFAULT=JES2 
USSPARM PARM=LOGMODE, DEFAULT=BUF256 
USSPARM PARM=USER,REP=DATA 


~USSCMD CMD=IMS,REP=LOGON, FORMAT=BAL 


USSPARM PARM=APPLID,DEFAULT=IMS. 
USSPARM PARM=LOGMODE, DEFAULT=BATCH 
USSCMD CMD=TEST,REP=LOGON, FORMAT=BAL 
USSPARM PARM=APPLID,DEFAULT=ISTOLTEP 
USSPARM PARM=LOGMODE, DEFAULT=INTERACT 
USSCMD CMD=RMT1,REP=LOGON, FORMAT=BAL 
USSPARM PARM=APPLID, DEFAULT=JES2 
USSPARM PARM=LOGMODE, DEFAULT=BUF512 
USSPARM PARM=DATA, DEFAULT=RMT1 
USSCMD CMD=POWER,REP=LOGON, FORMAT=BAL 
USSPARM PARM=APPLID, DEFAULT=POWER 
USSPARM PARM=LOGMODE, DEFAULT=BATCH 
USSPARM PARM=DATA,DEFAULT=006 
USSCMD CMD=LOGOFF, FORMAT=BAL 

USSPARM PARM=APPLID 

USSPARM PARM=TYPE,DEFAULT=COND 
USSPARM PARM=HOLD, DEFAULT=YES 

USSCMD CMD=EOD,REP=LOGOFF, FORMAT=BAL 
USSPARM PARM=APPLID 

USSPARM PARM=TYPE, DEFAULT=UNCOND 
USSPARM PARM=HOLD,DEFAULT=NO 

USSCMD CMD=SIGNOFF,FORMAT=BAL 
USSPARM PARM=APPLID 

USSPARM PARM=TYPE,DEFAULT=COND 
USSPARM PARM=HOLD, DEFAULT=YES 

USSEND | 

END 


NOTES- This USSTAB simplifies operator logon 
Description and specification for USSTAB generation is found in the 


appropriate System Programmers 
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USSTAB FOR 3274/3276 SDLC 


HEH HE HEH HE DEH HEE EE HEE EE SEK IE HEE KE DK EK HE EE HE SE EE DEE DE DE IE EK DE HEE IE HK HE HK EE EK HE HEE HE KH HK KEK HK KKK KK 
x SOURCE FOR USSTAB FOR SNA 3274/3276 
HE HEH HEHE IEE IE IE EE IE SE IE HE SE SE HEE IE SE IE EE DE EE DE DE DE DE IE EE ESE DE SE DEK SEHK EE EE HE HE HE SE HEE SE DEE DE DE KE DE DE SE EK EE EEK EEK 
USST3270 USSTAB 
LOG USSCMD CMD=L0G,REP=LOGON, FORMAT=BAL 
USSPARM PARM=P1,REP=APPLID 
USSPARM PARM=P2,REP=LOGMODE, 
USSPARM PARM=P3,REP=DATA 
IMS USSCMD CMD=IMS,REP=LOGON, FORMAT=BAL 
USSPARM PARM=APPLID,DEFAULT=IMS 
USSPARM PARM=P1,REP=LOGMODE 
IMS115 USSCMD CMD=IMS115,REP=LOGON, FORMAT=BAL 
USSPARM PARM=APPLID, DEFAULT=IMS115 
USSPARM PARM=P1,REP=LOGMODE 
CICS14 USSCMD CMD=CICS14,REP=LOGON, FORMAT=BAL 
USSPARM PARM=APPLID, DEFAULT=CICS14 
USSPARM PARM=P1,REP=LOGMODE 
CICSi3 USSCMD CMD=CICS13,REP=LOGON, FORMAT=BAL 
USSPARM PARM=APPLID,DEFAULT=CICS13 
USSPARM PARM=P1,REP=LOGMODE 
NOSP USSCMD CMD=NOSP,REP=LOGON, FORMAT=BAL 
USSPARM PARM=APPLID,DEFAULT=NOSP1 
USSPARM PARM=LOGMODE, DEFAULT=DSILGMOD 
TSO USSCMD CMD=TSO,REP=LOGON, FORMAT=BAL 
USSPARM PARM=APPLID, DEFAULT=TSO 
USSPARM PARM=LOGMODE 
USSPARM PARM=P1,REP=DATA 
LOGOFF USSCMD CMD=LOGOFF, FORMAT=BAL 
USSPARM PARM=APPLID 
USSPARM PARM=TYPE, DEFAULT=UNCOND 
USSPARM PARM=HOLD,DEFAULT=YES 
EOD USSCMD CMD=E0D,REP=LOGOFF, FORMAT=BAL 
USSPARM PARM=APPLID 
USSPARM PARM=TYPE, DEFAULT=UNCOND 
USSPARM PARM=HOLD, DEFAULT=NO 
VSPC USSCMD CMD=VSPC,REP=LOGON, FORMAT=BAL 
USSPARM PARM=APPLID,DEFAULT=VSPC 
USSPARM PARM=LOGMODE 
USSPARM PARM=P1,REP=DATA 
x THE FOLLOWING CODE IS POSITIONALLY DEPENDENT..... DO NOT CHANGE 
x | 
*xIF DOS/VS, A CHARACTER IS REQUIRED IN COLUMN 16 OF THE TEXT ON 
® ALL THE STATEMENTS CONTAINING 71 BLANKS. 
MESSAGES USSMSG MSG=1,TEXT="MAXIMUM MESSAGE ‘ X 
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PATCHBK 


MSG1S 


PAGE 4-22 


USSMSG 


USSMSG 


USSMSG 


USSMSG 


USSMSG 


USSMSG 


USSMSG 


USSMSG 


EQU 
ORG | 
EQU 
DC 
DC 


MSG=2, TEXT= "MAXIMUM 
MSG=3, TEXT="MAXIMUM 
MSG=4, TEXT= "MAXIMUM 
SQSS » TEXTS *MAXTHUM 
MSG=6, TEXT= "MAXIMUM 
MSG=7, TEXT= "MAXIMUM 


MSG=0,TEXT="MAXIMUM 


MSG=10,TEXT="MAXIMUM MESSAGE 


¥ 


ISTTOOO01+1 ORG BACK TO OVERLAY MESSAGE 


* 


X'6015! SKIP TO LINE 2 
C'INVALID COMMAND SYNTAX, ENTER:',X"15! 
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MESSAGE 


MESSAGE 


MESSAGE 


MESSAGE | 


MESSAGE 


MESSAGE 


MESSAGE 


<< 


mM HK KK ~*~ KK MK x KK MK KM KK MK Mm KK MK x KKK 


mM KK 


Kx «KK K 
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DC 
pe 
DC 
DC 
pc 
DC 
pe 
De 
MSGIE = EQU 
ORG 
MSG2S5  —-- EQU 
pc 
pc 
pe 
Dc 
Dc 
pe 
pc 
Dc 
De 
DC 
MSG2E = EQU 
ORG 
MSG3S ss EQU 
Dc 
DC 
pe 
Dc 
DC 
Xe 
Dc 
Dc 
DC 
De 
MSG3E = EQU 
ORG 
MSG4S  —- EQU 
DC 
Dc 
DC 
pe 
Dc 
pc 
Dc 
Dc 
Dc 
Dc 
DC 


—~G320-6028 (2779) 


VTAM SESSION 


X"'4015" 

C'LOG applid lLogmode data’,xX'15" 
C'rImMs',X*'15" 

C’cIcsl4",xX'15'* 

C'cIcS13",X'15' 

C'TSO tsoid/password'",X'"15* 

CYNOSP*,X"*15° 

C*VSPC ID=nnnnnn* 

% 

ISTTOOO02+1 ORG BACK TO OVERLAY MESSAGE 
x 

X"'4015' SKIP TO LINE 2 

C'*% COMMAND NOT RECOGNIZED, ENTER:*,X"15°* 
X'4015"' | 7 

C'LOG applid logmode data’,X'15' 
C'IMS',X"15!" 

C’*crcsi4',x"15' 

C’'CICS13*,xX'15° 

C'TSO tsoid/password',X'15" 

CYNOSP',X'15" 

C®VSPC ID=nnnnnn' 

x 

ISTTOO03+1 ORG BACK TO OVERLAY MESSAGE 
4 ; 
X'4015' SKIP TO LINE 2 

C'% PARAMETER NOT RECOGNIZED, ENTER:',X'15' 
X"4015' 

C'LOG applid Llogmode data’,X'15!' 
C'IMNS*sA°15" 

C*cIcsi4!,X'15* 

C*CICS13",X"15"' 

C*TSO tsoid/password’,X'15' 

C*NOSP*,X*15' 

C*VSPC ID=nnnnnn' 

x 

ISTTO004+1 ORG BACK TO OVERLAY MESSAGE 
x 

X*4015" SKIP TO LINE 2 

C*% PARAMETER INVALID, ENTER:*,X'15" 
X"'4015' 

C°LOG applid logmode datsa',X'15"' 
C'IMS',X"15' 

C*CICS14",X"15!' 

C'*cIcsi13",xX"15' 


(C'TSO tsoid/password’,X'15! 


C®NOSP",X"15'" 
C°VSPC ID=nnnnnn!',X'15* 
X'4015" 
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c C'NOTE: The application may not be active’ 
MSG4E EQU x | | 
~ ORG ISTTOOO5+1 === ORG BACK TO OVERLAY MESSAGE 
MSG5S EQU % 7 
DC X'4015" SKIP TO LINE 2 
DC C*'UNSUPPORTED FUNCTION, ENTER:*,X'15" 
DC X'4015' 
DC C'LOG applid logmode data',X'15' 
DC C'IMS"',X"15" | 
DC C'CICS1IG&* ,X"15' 
DC CFCICS13",X'"15° | 
DC C'TSO tsoid/password',X'15' 
DC C'NOSP’,X"15' 
DC C'VSPC ID=nnnnnn! 
MSG5E EQU x 
ORG ISTTO006+1 ORG BACK TO OVERLAY MESSAGE 
MSG6S EQU x 
Dc X'4015! SKIP TO LINE 2 
DC C'SEQUENCE ERROR:'*,X'"15' 
DC X'40154015' 
DC C'l. You are sttempting to logoff from a terminal ' 


DC C'that is not in session’ 

DC X*'40i5' ——- 

DC C'2. You are attempting to logon from s terminal that ' 
DC Cis already in session’ 


MSG6E EQU x 

ORG ISTTOOO7+ ORG BACK TO OVERLAY MESSAGE 
MSG75 EQUX 

DC X'40154015' SKIP TO LINE 3 

pc C'SESSION NOT BOUND BECAUSE:',X"'15' 

DC X'40154015' 


DC C'l. This terminal is already in session’,X'1L5* 
DC X*4015! 
DC C'2Z. The host application rejected the logon request! 


DC X"154015" 
DC C'3. The terminal rejected the bind’,X'15" 
MSG7E EQU ¥ 
ORG ISTTOOCSt1 ORG BACK TO OVERLAY MESSAGE 
MSGOS EQU ¥ 
DC X'40154015' SKIP TO LINE 3 
DC C'COMMAND COMPLETED OK:'* 
DC X*4015401540154015' 
BC C'If LOGON, press ALT/SYS REQ CTEST REQ/CLEAR for 3277)" 
BC X'401540154015" 
DC C'If LOGOFF, enter next command or press enter for ' 
DC C'logon command syntax! 
MSGOE EU % 
ORG ISTTOQO9+t1 ORG BACK TO OVERLAY MESSAGE 
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MSG10S EQU % 


DC X'40154015" SKIP TO LINE 3 

DC c’ PALO ALTO SYSTEMS CENTER, ACF/VTAM SYSTEM’ 
DC X'40154015401540154015' 

DC C'For logon command syntax, press enter’ 


MSGI1OE EQU % 

ORG PATCHBK 
* MAKE SURE EACH MESSAGE DOES NOT EXCEED 249 BYTES 
MSGIL EQU (MSGILE-MSGI1S) 
MSG2L EQU C(MSG2ZE-MSG2S) 
MsG3t EQU CMSGIE-MSG35) 
MSG4L EQU C(MSG4E-MSG45) 
MSG5L EQU C(MSG5SE-MSG55) 
MSG6L EQU (MSG6E-MSG65) 
MSG7L EQU (MSG7E-MSG75) 
MSGOL EQU CMSGOE-MSG05) 
MSGIOL EQU CMSG1OE-MSG1905S) 
END USSEND 

END 


NOTES- This USSTAB simplifies operator logon from the 3274/3276 SDLC 
unit. Description and specification for USSTAB generation is found in 
the appropriate System Programmers Guide for VTAM and ACF/VTAM. 
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REFERENCES | 
DOS/VS VTAM System Programmers Guide GC27-6957 
ACF/VTAM System Programmers Guide (DOS) | | -§038-0268 
OS/VS1 VTAM System Programmer's Guide : GC27-6996 
OS/VS2 SVS VTAM System Poe ranmanis Guide GC27-0049 
OS/VS2 VTAM System Programming Library: VTAM  ~=6GC28-0688 
ACF/VTAM System Programmers Guide $C38-0258 


PAGE 4-26 SNA PRODUCT INSTALLATION GUIDE G320-6028 (2/793) 


DOS/VS SAMPLES 


CHAPTER 5 =: SAMPLE SYSTEM DEPENDENT JCL 


5.1 ? DOSZVS SAMPLES 


The examples included in this section should assist in the installation 
of a DOS/VS system with local 3270's and a local attached 3705. 


REFERENCES 
DOS/VS VTAM System Programmers Guide GC27-6957 
DOS/VS System Management Guide 6033-5371 
DOS/VS System Control Statements GC33-5376 
DOS/VS System Generation GC33-5377 
DOS/VS System Utilities GC33-5381 
DOS/VS VTAM Reference Summary GX27-0033 
ACF/VTAM System Programmers Guide (D0S) $C38-0268 
ACF/VTAM Installation Guide (DOS) 5C38-0270 
ACF/VTAM Reference Summary (DOS) $X27-3022 
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DOS/VS SAMPLES — 


DOS/VS SYSTEM DEFINITIONCPARTIAL) 


47 JOB SUPYVR CXXXXXXXXXXXXXX) ASSMB AND CATAL SIPOSUPVY MOD2 1072778 
4/ EXEC PROC=$SRESET | | 

77 OPTION ERRS,LIST,XREF,NODECK,NOEDECK, CATAL 

77 OPTION NOXREF 

/7 EXEC ASSEMBLY, SIZE=40K 


SCONFG 


SSTDJC 


SFOPT 
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PRINT 
SUPVR 


EQU 
CONFG 


EQU 
STDJC 


EQU 
FOPT 


NOGEN 


ID=V, 

AP=YES, 
ERRLOG=RDE, 
NPARTS=6, 
POWER=YES, 
PAGEIN=24, 
PHO=YES, 
TP=CBTAM,VTAM), 
VM=YES 

x 


FP=YES, 
MODEL=158 
x 


ACANCEL=NO, 
DECK=NO, 
DUMP=NO, 
LINES=60, 
SPARM=YES, 
XREF=NO 

x 


AB=YES, 
ASYNOC=YES, _ 
DASDFP=(1,4), 
DOC=NO, 
ECPREAL=YES, 
ERRQ=10, | 
EVA=(10,10), 
FASTTR=YES, 
GETVIS=YES, 
IDRA=YES, 
IT=YES, 


SSASSUPV 


‘POWERS VS! 
REQUIRED FOR POWER/VS 


VM LINKAGE ENHANCEMENTS 


REQUIRED FOR VTAM 
CTO ALLOW SYSRES ON CHANNELS 1-4) 
REQUIRED FOR POWER/VS 
FAST CCW TRANSLATE CR32 FEATURE) 
REQUIRED FOR VTAM 


REQUIRED FOR VTAM 


JA=C12,12,12,12,12);, 


JALIOCS=(64,64), 


OC=YES, 
OLTEP=YES, 
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MK MK KK KK KK 


< 


MK KK KK 


mM KK KK KK OK OK OK OK OK OK OK MK OK 
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/ 


DOS/VS SAMPLES 


PC=YES, REQUIRED FOR VTAM X 
PCIL=YES, X 
PD=YES, X 
PFIX=YES, REQUIRED FOR POWER/VS AND VTAM X 
PRTY=CBG,F5,F4,F3,F2,Fl), FLI-VTAM F2-POWER X 
¥*¥**® VTAM must have the highest priority 
PSLD=12, X 
RELLDR=YES, REQUIRED FOR POWER/VS AND VTAM X 
RPS=YES, Xx 
SLD=15, X 
SYSFIL=YES, REQUIRED FOR VTAM X 
TOD=YES, REQUIRED FOR VTAM X 
TRKHLD=12, | X 
USERID=SIPOSUPIMOD2VMLE, X 
VSAM=YES, REQUIRED BY SSS X 
WAITM=YES, X 
XECB=YES, INTER-PARTITION COMMUNICATION CR32) X 
ZONE=CWEST,7,00) 
SPIOCS EQU * 
PIOCS X 
BLKMPX=YES, x 
BMPX=YES, X 
DISK=(3330,3340,3350), X 
TAPE=9 
SVSTAB EQU x 
VSTAB X 
RSIZE=512K, X 
VSIZE=7680K, & MEG VIRTUAL MACHINE X 
BUFSIZE=150, | xX 
SVA=(570K,40K) 
SALLOC EQU % 
| ALLOC Xx 
F1=2048K, VTAM RUNNING AT THE HIGHEST PRTY Xx 
¥¥X Usually 800K to 900k for average VIAM system Xxx 
¥¥X Usually 1500 to 2000k for large systems and if RESTART option. 
F2=512K, POWER/VS SNA/RJE Xx 
F3=2048K, CICS/VS + DL/1 + VSAM OR VTAM X 
F4-1024K, CICS/VS BUT NOT EVERYTHING X 
F5=450K PRODUCTION 
x BG=1024K BG = VSIZE - (SVA + Fl + F2 + F3 + F4& + F5 
SALLOCR EQU % 7 
ALLOCR Xx 
BGR=80K, Xx 
F4R=-40K, X 
F5R=80K, Xx 
F3R=80K, x 
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F2R=56K, POWER RSIZE Xx 

FIR=40K 
¥**% Usually 36K to 40K for average VTAM system x | | 
x (BGR + FLR + F2R + F3R + F4R + F5R + 20K + SUPERVISOR) 
% MUST BE NO GREATER THAN 'RSIZE'. 
SIOTAB EQU- x | - 

IOTAB 

BGPGR=40, 

CHANQ=64, 

D3330=16, 

D3340=32, 

D3350=8, 

D3420=8, 

FIPGR=24, 

F2PGR=40, 

F3PGR=39, 

F4PGR=39, 

F5PGR=10, 

IODEV=110, 

JIB=200, | 
| | NRES=64 REQUIRED FOR VSAM II 
SDVCGEN EQU- * - YREAL' DEVICES 
| DVCGEN CHUN=X'00C',DVCTYP=2540R READER FOR DMS 
DVCGEN CHUN=X'O1C’,DVCTYP=2501 |= DUMMY READER FOR 'SPM II’ 
DVCGEN CHUN=X'00D',DVCTYP=2540P |= PUNCH FOR DMS 
DVCGEN CHUN=X'04D',DVCTYP=3525P | 
DVCGEN CHUN=X'OOE',DVCTYP=1403U 
DVCGEN CHUN=X'00B',DVCTYP=1403U 
DVCGEN CHUN=X'009",DVCTYP=1050A : 
DVCGEN CHUN=X'030',DVCTYP=2703 -2703/0R 370X IN EMULATION 
DVCGEN CHUN=X'031',DVCTYP=2703 2703/0R 370X IN EMULATION 
DVCGEN CHUN=X'060",DVCTYP=3791L LOCAL 3274 
DVCGEN CHUN=X'070',DVCTYP=3705,MODE=X'O01' 370X NATIVE MODE 
DVCGEN CHUN=X'080',DVCTYP=3705,MODE=X'02' 370X NATIVE MODE 
DVCGEN CHUN=X'040'",DVCTYP=3277 LOCAL 3270 FOR MONITOR, CICS 
DVCGEN CHUN=X"041",DVCTYP=3277 LOCAL 3270 FOR APPLIC. 
DVCGEN CHUN=X'042',DVCTYP=3277,MODE=X'01" LOC. 3286 PRT 
DVCGEN CHUN=X'043',DVCTYP=3277 FOR CONSOLE SUPPORT 


Mm KM KK KK KK KK KK OK 


% 

% 

x MULTIPLE PRINTERS FOR POWER/VS CONTROL 
DVCGEN CHUN=X'O1E',DVCTYP=1403U 
DVCGEN CHUN=X'02E",DVCTYP=1403U 
DVCGEN CHUN=X'08E',DVCTYP=1403U 

% 

% 


DVCGEN CHUN=X'1460',DVCTYP=3350 
DVCGEN CHUN=X'141',DVCTYP=3350 
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*«K 


% 

* 

¥* 

% 

x 
SASSGN 
* SYS 
* BG 
 S 

x FS 
x FG 


DVCGEN 
DVCGEN 
DVCGEN 


DVCGEN 
DVCGEN 


DVCGEN 
DVCGEN 
DVCGEN 


DVCGEN 
DVCGEN 
DVCGEN 


EQU 


ASSGN 
ASSGN 
ASSGN 
ASSGN 
ASSGN 
ASSGN 
ASSGN 
ASSGN 


ASSGN 
ASSGN 
ASSGN 
ASSGN 


ASSGN 
ASSGN 
ASSGN 
ASSGN 
ASSGN 


ASSGN 
ASSGN 
ASSGN 
ASSGN 


ASSGN 
ASSGN 
ASSGN 
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CHUN=X'160*, DVCTYP=3340 
CHUN=X'161' ,DVCTYP=3340 
CHUN=X'162', DVCTYP=3340 


CHUN=X*280', DVCTYP=3420T 
CHUN=X'281' ,DVCTYP=3420T 


CHUN=X'350', DVCTYP=3330 


CHUN=X'351',DVCTYP=3330 
CHUN=X'352', DVCTYP=3330 
CHUN=X'370', DVCTYP=3330B 
CHUN=X'371', DVCTYP=3330B 
CHUN=X'372',DVCTYP=3330B 
rad 

SYSLOG,X*009' 
SYSREC,X*160° 
SYSCAT,X'160° VSAM 
SYSCAT,X'160',F4 VSAM 
SYSCAT,X'160',F5 VSAM 
SYSCAT,X'160'°,F3 VSAM 
SYSCAT,X'160',F2 VSAM 
SYSCAT,X'160',F1 VSAM 
SYSRDR,X*00C* BG 
SYSIPT,X'O0C" BG 
SYSPCH,X'O00D" BG 
SYSLST,X*OO0E" BG 
SYSLNK,X*161" BG 
SYSO001,X'161' BG 
SYS002,X"161" BG 
SYSO003,X‘'161" BG 
SYSO004,X"161" BG 


SYSRDR,X'05C',F5 
SYSIPT,X"05C'",F5 
SYSPCH,X*05D",F5 
SYSLST,X*O5E*,F5 


SYSRDR,X*00C*,F4 
SYSIPT,X'00C* ,FS4 
SYSPCH,X'00D",F4 
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9 


MASTER 
MASTER 
MASTER 
MASTER 
MASTER 
MASTER 


DOS/VS SAMPLES 


CATALOG , 
CATALOG THESE ASSGNS 
CATALOG SHOULD NOT BE 


CATALOG NEEDED, BUT 
CATALOG WERE FOUND TO 
CATALOG BE NECESSARY. 
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SSEND 


7® 


F3 


F2 


Fl 


ASSGN 
ASSGN 
ASSGN 
ASSGN 
ASSGN 
ASSGN 


ASSGN 
ASSGN 
ASSGN 
ASSGN 


SYSLST,X'O0E",F4 
SYSLNK,X"'161',F4 
SYSOO1,X'161",F4 
SYS002,X'161",F4 


SYSO003,X'161",F4& 
SYS004,X"161",F4¢ 


SYSRDR,X'00C',FS 
SYSIPT,X"00C',F3 
SYSPCH,X"00D',F3 
SYSLST,X'O00E',F3 


POWER/VS PARTITION 


ASSGN 
ASSGN 
ASSGN 
ASSGN 

VTAM 
ASSGN 


EQU 
SEND 


SYSLST,X*'O0E',F2 
SYS000,X"161'",F2 
SYSO001,X'161",F2 
SYS002,X'161',F2 
PARTITION 

SYSLST,X*O1E',Fl 


% 


ENTRY NUCEND 


SUPPARMS 


END 


/7 EXEC LNKEDT 


7% 


IDENTIFY ACTUAL END OF SUPERVISOR. 
LIST PARAMETERS, AHEAD OF PRINT GEN 


NOTE- Information for preparing the DOS/VS system is found in Chapter 2 
of the DOS/VS VTAM System Programmer's Guide (GC27-6957), and the DOS/VS 
System 
ACF/VTAM System Programmer's Guide (€$C38-0268) and ACF/VTAM Installation 
Guide ($C38-0270) are required. 
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DOS/VS 


DOS/VS POWER DEFINITION 


4/ JOB POWERASM 
// EXEC PROC=SSRESET 
//7 OPTION ERRS,LIST,XREF,NODECK,NOEDECK, CATAL 
4/7 EXEC ASSEMBLY,SIZE=128K 
TITLE ‘POWER SNA - RELEASE 34° 
PRINT GEN 
POWSNA POWER DBLK=1966, 
TRACKGP=3, 
LTAB=(€10,00,05,10,15,20,25,30,35,40,45,50,56), 
PRI=5, 
SUBLIB=P, 
ACCOUNT=YES, 
STDLINE=(10000,10000), 
STDCARD=(500,500), 
JLOG=YES, 
JSEP=(€2,0), 
RBS=(€0,0), 
RDREXIT=YLZIREX;, 
PAUSE=NO, 
SPOOL=YES, 
SNA=(€20,,POWER) 
EJECT 
PLINE ADDR=X'030', 
SWITCH=YES, 
TRNSP=YES 
PLINE ADDR=X'O31', 
SWITCH=YES, 
TRNSP=YES 
EJECT 
PRMT REMOTE=1, 
TYPE=3780, 
TRNSP=YES, 
TRACE=YES 
PRMT REMOTE=2, 
TYPE=3780, 
SCE=YES, 
TRACE=YES 
PRMT REMOTE=3, 
TYPE=2770, 
TRNSP=NO, 
SCE=YES, 
BE-YES, 
ABE=YES, 
TRACE=YES 
PRMT REMOTE=4, 
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DOS/VS SAMPLES 


TYPE=2770, 
TRNSP=YES, 
SCE=NO, 
BE=YES, 
ABE=YES, 
TRACE=YES 

EJECT 

PRMT REMOTE=S, 
TYPE=LUTI, 
CONSOLE=NO, 
SESSLIM=1, 
LU=(P76ALUL) 

PRMT REMOTE=6, 
TYPESLUTI, 
CONSOLE=YES, 
LU=(P76ALU1,P76ALU2,P76ALU3,P76ALU4,P76ALU5,P76ALU6)> 

 SESSLIM=6 

PRMT REMOTE=7, 

TYPE=LUTL, - 

-. CONSOLE=YES, 
LU=(RJEO1,RJEO2,RJE03,RJE04,RJE05), 
SESSLIM=5 


«x «Km KK mM mM KK Mm KK KK 


MR MK MK 


END 
7% 
4/7 EXEC LNKEDT 
7¥ 
7% 
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DOS/VS SAMPLES 


DOS/VS VTAM OR ACF/VTAM NETWORK INSTALL JCL 


// JOB CATAL VTAM NETWORK DEFINITION 
// EXEC MAINT 

CATALS B.node name 

BKEND B.node name. 


Insert network definition deck here 


BKEND 
7* 
1% 


NOTE- Chapter 3 of the DOS/VS VTAM System Programmer's Guide describes 
the filing of network definition decks. Sample network definitions for 
the NCP are described in Chapter 6. Chapter 7 contains a sample Switches 
SNA node definition and Chapter 8 contains sample local device 
definitions. 


DOS/VS VTAM OR ACF/VTAM START PARAMETER DEFINITION EXAMPLE 


CATALS B.ATCSTROO 
BKEND B.ATCSTROO | 
HE 3 3 IE HE DE HK IE HE DE DE DE DK IE DE DE DE HE HE DE DE 9K IE DE 3E DE DE DE DE DE DE DE HE DE DE DE HE 3E DE 3E 3K IEE DE HE DE DE DE DE IE IE DE DE DE DK IE IE DE DE 9K DE DE DE DE DK DE HE 3E DEDEDE 


% % 
* MINIMUM VTAM SYSTEM --- NO NCP % 
% THIS WILL NOT SUPPORT AN NCP UNLESS VTAM BUFFER VALUES ARE * 
as ENTERED WHEN PROMPTED BY VTAM AT. STARTUP. % 
petit t ett rirtirertitirersrtitittitittitirititii titer ttt ttt et eet ee eeyeeey 
CONFIG=00, PREDEFINED LIST OF MAJOR NODES CATCCONOO) X 
MAXSUBA=15, MAXIMUM NUMBER OF MAJOR NODES X 
SSCPID=01 REQUIRED FOR VTAM-2 or ACF/VTAM 
BKEND 
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DOS/VS SAMPLES 


DOS/VS VTAM START DEFINITION (TEST - REPLACES INITIAL). 


CATALS B.ATCSTROI 
BKEND B.ATCSTRO1 
HK HK HEHE HE HE HE HE HE KEK EK EK EK EE KE EK EE EE HE KK KE EEE HE EEK EE HE EE EK EK EEE KH EEK KKM KK KKK 


* NOTE: THE LFBUF (BSZ) PARAMETER MUST EQUAL THE UNITSZ VALUE x 
x IN THE NCP HOST MACRO DEFINITION. THE FORMAT OF THE x 
x - BUFFER POOL START PARAMETERS IS EITHER x 
x XXBUF=(BNO,BSZ,BTHZ) OR XXBUF=VBSZ AS INDICATED BELOW. x 
HE HE HK IESE KE HE EK HEE EE EE EE EE EK EEE EEK EK EE EEE EK EE EE EK KK EE KE EEE EEE EK EEK KK KK HRN 
CONFIG=01, PREDEFINED LIST OF MAJOR NODES CATCCONO1) x 
SSCPID=01, VTAM IDENTIFIER REQUIRED FOR VTAM-2 CRELEASE 32) X 
NETSOL=NO, NETWORK SOLICITOR NOT TO BE STARTED y 
SUPP=NOSUP, DO NOT SUPPRESS VTAM MESSAGES X 
MAXSUBA=31,> | _ MAXIMUM NUMBER OF MAJOR NODES Xx 
- PROMPT, ALLOW NETWORK OPERATOR TO ENTER VTAM START DATA X 
APBUF=(23,,21), _ ACTIVE & INACTIVE BUFFER POOL - PAGEABLE STORAGE X 
LFBUF=(39,88,37); LARGE FIXED STORAGE I/0 BUFFER POOL x 
LPBUF=(20,,18), LARGE PAGEABLE-STORAGE BUFFER POOL | X 
NPBUF=(11,,9), --«* DEVICE CONNECTION BUFFER POOL, PAGEABLE xX 
PPBUF=(8,88,6)> PAGEABLE DATA BUFFER POOL | x 
SFBUF=(1,,1)> - SMALL FIXED STORAGE BUFFER POOL x 
SPBUF=(46,,43)> SMALL PAGEABLE-STORAGE BUFFER POOL x 
WPBUF=(8,,6), DEVICE CONNECTION BUFFER POOL - PAGEABLE X 
UECBUF=(20,,18), SESSION AND SIMLOGON BFR POOL - PAGEABLE xX 
VFBUF=6144, VPBUF=120000 | 
BKEND 


NOTE- Defining and filing DOS VTAM start parameters is described in 
Chapter ¢ of the DOS/VS VTAM System Programmer's Guide (G6C27-6957). 


ATCSTROO is required by VTAM even if all defaults are taken. The system 
defaults will not support more than one active application program, 
including the Network Solicitor, and will not support san active NCP. 
ATCSTROL specifies the values necessary to support a small NCP, 
application definitions, and local definitions. A VTAM virtual partition 
size should be about 900K and the ALLOCR size should be st least 36K. 
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DOS/VS SAMPLES 


DOS/VS ACF/VTAM START PARAMETER DEFINITION CTEST) 


CATALS B.ATCSTRAC 
BKEND B.ATCSTRAC 
HEHEHE HE HE HEHE HEHE DE HE DEE DE DE DK DK DE EE DE DE DE DE DK HE HE DE DE 3 DE DK HE HE DE DE DE DE IK IE HE DE HK DK DK DK EE DE DE DED DK KE DE DEDEDE KE KE EE EE 


ATCSTROO IS REQUIRED OR THIS DEFINITION CAN REPLACE IT. 


NOTE: THE IOBUF CBUFSIZE) PARAMETER MUST EQUAL THE UNITSZ VALUE 
| IN THE NCP HOST MACRO DEFINITION. THE FORMAT OF THE 
BUFFER POOL START PARAMETERS IS EITHER 
XXBUF=CBASENO,BUFSIZE,SLOWPT,XPANNO,XPANPT ) 
OR XXBUF=VBSZ AS INDICATED BELOW. 
XPANNO OF 1 WILL CAUSE ACF/VTAM TO ACQUIRE 1 PAGE OF 
BUFFERS SINCE THEY ARE ALWAYS ACQUIRED IN PAGE 
INCREMENTS. 
Pett Pet eS PSS ete terete ee se Se Le SSPE SSS SS SSS SS SSS SS SSS SSS SIS SETS PSPS SS SS 
SSCPID=01, VTAM IDENTIFIER REQUIRED FOR ACF/VTAM 
CONFIG=AC, PREDEFINED LIST OF MAJOR NODES CATCCONAC) 
HOSTSA=12, HOST SUBAREA FOR THIS ACF/VTAM 
MAXSUBA=31, MAXIMUM NUMBER OF MAJOR NODES 
VTAMEAS=100, 
MAXAPPL=50, MAXIMUM NUMBER OF APPLICATION STATEMENTS 
NETSOL=NO, NETWORK SOLICITOR NOT TO BE STARTED 
PROMPT, ALLOW VTAM OPERATOR TO ENTER VTAM START DATA 
SUPP=NOSUP, ALL ACF/VTAM MESSAGES TO BE PRINTED 
APBUF=(64,,0,1,5), 64- ACTIVE & INACTIVE BUF POOL - PAGEABLE STOR 
LFBUF=(46,136,2,1,24), 136- LARGE FIXED STORAGE I/O BUFFER POOL 
Note - The difference between SLOWPT and XPANPT must be greater than 
the largest MAXBFRU defined in any NCP or Local definition. 
LPBUF=(€3,,0,2,1), L131- LARGE PAGEABLE - STORAGE BUFFER POOL 
NPBUF=(14,,0,1,3), 288- DEVICE CONNECTION BUFFER POOL —- PAGEABLE 
PPBUF=(€30,136,0,1,5), 136- PAGEABLE DATA BUFFER POOL 
SFBUF=(34,,0,1,5), 120- SMALL FIXED STORAGE BUFFER POOL 
SPBUF=(€26,,0,1,3), 156- SMALL PAGEABLE - STOR BUFFER POOL 
UECBUF=(40,,4,1,10), 100- SESSION & SIMLOGON BFR POOL - PAGEABLE 
WPBUF=(24,,0,1,3), 164- DEVICE CONNECTION BUF POOL ~- PAGEABLE 
VFBUF=8000,VPBUF=180000 
BKEND 


K K K K K K K K OK MK M 
K K KK K K K KK K XK 


Mm KM KKK KK KK OK MK 


MK KK KK XK 


NOTE- The VTAM virtual partition size should be sadjusted to 2048K, and 
the ALLOCR value should be 36K. These buffer values will support the 
initialization of a large NCP definition, a switched SNA node, local 
3270*s and NETSOL. The above values should be adjusted after the system 
has been checked out. 
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DOS/VS SAMPLES 


DOS/VS START DEFINITION WITH AUTO-START OF VTAM TRACES 


CATALS B.ATCSTRIIL 
BKEND B.ATCSTRI1 


HEHEHE HE HE HE HEHE IE DED DE DK D3 CHE HE IE DE DE DK DDK D3 EE HE HE HE DE DK DK DK DD 3 HEHE IE KD DK DK DD 3 3 EE HE IE OO DK 3 DE HE IE DE DE DD 3D I 


% 


AUTO LOAD OF NCP WITH VTAM TRACES 
% 


* 
% 
x 


PETIT PTITTTTittiiiTittiiitttitit titi ett tii titi tit t titi ttt iret tte ee eee: 


CONFIG=11, PREDEFINED LIST OF MAJOR NODES CATCCONII1) 


TRACE, TYPE=BUF,ID=NCPBS, 
TRACE, TYPE=BUF,ID=CL3790, 
TRACE, TYPE=BUF, ID=SD3767, 

~ TRACE, TYPE=BUF,ID=INBATCHI, 
TRACE, TYPE=BUF,ID=INQDEMO2, 
TRACE, TYPE=BUF,ID=TR3767SD, 
TRACE, TYPE=10,ID=NCPBS, 
TRACE, TYPE=10,ID=CL3790, 
TRACE, TYPE=I0, ID=SD3767, 
TRACE, TYPE=10,ID=INBATCHI1, 
TRACE, TYPE=10, ID=INQDEMO2, 
TRACE, TYPE=10, ID=TR3767SD 

BKEND 


NOTE- The above start list assumes the required 


MM WK KR KR KR KK KK KK 


buffer definitions ere 


specified in ATCSTROO. If they are not, then all the start psrameters in 


the normal start list should be included. 
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DOS/VS SAMPLES 


DOS/VS VTAM APPLICATION PARAMETER EXAMPLE 


CATALS B.APPCONOL 
BKEND B.APPCONOI] 
HE HE HE HEHE DE DE HEHE HE DE HE HEHE HE HE HE HE IE HE BE HE HE DK DHE EE HK HE HE HE DE DK HE HE EE HE HK HE HE HK HEHEHE HK HK HE HEHE HK HE HE HE HK HK HEHEHE HHH HN 


WITH THE PASS OPTION. 


% % 
* APPLICATION PROGRAM DEFINITION FOR VTAM % 
WHERE THE OPERANDS AVAILABLE ARE: x 
X PRTCT=PASSWORD, PASSWORD MUST ALSO BE DEFINED IN % 
x APPLICATION PROGRAM "ACB’. x 
ss BUFFACT=NI1, MAXIMUM NUMBER OF VTAM PPBUF'S. IT * 
* MaY NEED TO BE ADJUSTED FOR BATCH x 
K INPUT. x 
¥ AUTH=CACQINOACQ, ALLOWS APPLICATION PROGRAM TO USE x 
¥ THE OPNDST MACRO WITH THE * 
X ACQUIRE OPTION. ¥ 
* BLOCK|NOBLOCK, NOT USED WITH SDLC OR 3270. x 
x PASS|NOPASS) ALLOWS USE OF CLSDST MACRO ¥ 
% * 
x % 


DE 3 DE HE DE HE DE DED HE DE DE DE HE DE DE HE DE DE DE DE DE IE EDK DK HE DE DK DE DE DE DE HE DE DE DHE DE DK DE DE DK HE DE DK HE DE DE HE DE DE HK HE DE DE DK HE DE DE IK DE IEE IE HEE 
SAMPI1 APPL AUTH=CACQ) 
CICS APPL AUTH=CACQ), BUFFACT=4% 
PROG] APPL AUTH=CACQ) 
INGALL APPL PRTCT=OKAYOKAY 
INQ APPL AUTH=CACQ) 
BATCH APPL AUTH=CACQ),BUFFACT=2 
INQ3790 APPL AUTH=CNOACQ) 
TEST3 APPL AUTH=CACQ) 
SYSSSS APPL AUTH=CACQ) 
BKEND 


NOTE- Chapter 3 of the DOS/VS VTAM System Programmer's Guide (GC27-6957) 
describes the definition and filing of the application programs. 
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DOS/VS SAMPLES 
DOS/VS ACF/VTAM APPLICATION PARAMETER EXAMPLE 


CATALS B.APPCONAC 
BKEND B.APPCONAC 
APPCONAC VBUILD TYPE=APPL 
ETT T TTT TTT TT TTT ITT T TL TTITT TOL CLOT TTLeT TTT irerTrTiierertetet er 


% * 
x APPLICATION PROGRAM DEFINITION FOR VTAM | X 
x WHERE THE OPERANDS AVAILABLE ARE: XX 
% ACBNAME=ACBNAME, MINOR NODE NAME. DEFAULTS TO NAME x 
x ON APPL STATEMENT. | 

* PRTCT=PASSWORD, PASSWORD MUST ALSO BE DEFINED IN | x 
APPLICATION PROGRAM ‘ACB’. BS 
* BUFFACT=NI1, MAXIMUM NUMBER OF VTAM PPBUF'S. IT x 
x APPLIES TO BASIC MODE ONLY. x 
SS VPACING=N, | MAXIMUM NUMBER OF NORMAL~FLOW x 
x REQUESTS FROM LU. x 
x MODETAB=MODETAB NAME, NAME OF MODETAB TO BE USED BY THE X 
x APPLICATION. % 
® DLOGMOD=DEFAULT LOG- NAME OF LOGMODE ENTRY TO BE USED * 
X MODE ENTRY IF NONE IS OTHERWISE PROVIDED. pS 
X EAS=N|404, NUMBER OF CONCURRENT SESSIONS THIS X 
% APPLICATION PROGRAM WILL HAVE WITH x 
% | ANY LOGICAL UNITS. a x 
X AUTH=CACQ|NOACQ, ALLOWS APPLICATION PROGRAM TO USE x 
* THE OPNDST MACRO WITH THE is 
X ACQUIRE OPTION. x 
x PPO|SPO|NOPO, DEFAULTS TO NOPO. SEE THE PROGRAM xX 
x OPERATOR GUIDE FOR ITS USE. x 
x BLOCK|NOBLOCK, BASIC MODE ONLY. x 
¥ VPACE|NVPACE, DETERMINES IF APPLICATION IS TO BE X 
% SUBJECT TO VPACING FOR LU. DEFAULTS 
x TO VPACING. x 
¥ PASS|NOPASS) | ALLOWS USE OF CLSDST MACRO % 
x WITH THE PASS OPTION. | — 
* X 


PE SESS P SSS ES SSPE L SSS SST SS PST ESET STEP ESE SES SST EPSP SPST PS SESS TES SET TES SS SS 

SAMPI1 APPL AUTH=CACQ) , DLOGMOD=S3270,EAS=2 

CICS APPL AUTH=CACQ), EAS=40 

PROG] APPL AUTH=CACQ), EAS=10 

INQALL APPL PRTCT=OKAYOKAY, EAS=10 

INQ APPL AUTH=CACQ) , EAS=10 

BATCH APPL AUTH=CACQ), EAS=1 

INQ3790 APPL AUTH=(NOACQ) , MODETAB=MODE37 90, EAS=4 

TEST3) APPL AUTH=CACQ), EAS=1 

SYSSSS APPL AUTH=CACQ) , DLOGMOD=BATCH, EAS=1 
BKEND 
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DOS/VS SAMPLES 


DOS/VS NETWORK CONFIGURATION DEFINITION 


CATALS B.ATCCONOO 
BKEND B.ATCCONOO 
PES EPS TSS SSE SSS SESE SESS SESS SS SSS ESE SESS ES SS SSPE TPES TSE S PPT S TSE S ES SS SS FS 


x CONFIGURATION DEFINITION x 
% NETWORK INCLUDES APPLICATION PROGRAM LIST ONLY ¥ 
HEHE HE EH HE HE HE DE DE IE HE DE DE DE DE HE HE HE EEE DE EH KE DEE EK HE IEE EK HK HK HE EE DE DE IK DK HK HE HE OE DEO DEK IK DE DE DE HEE KK EEK 
APPCONO] 

BKEND 


CATALS B.ATCCONAC 
BKEND B.ATCCONAC 
HEHE HE HEH HE HEE HEHE DE HIE HE DE DE IEE HE HE HE DE EE KH EE EE HE HK HE HE HE DE DE DE HK HEHEHE DEH EK HE HE DE OE HE HE EE HE EE HK 


x CONFIGURATION DEFINITION x 
3 NETWORK INCLUDES APPLICATION PROGRAM LIST, AND x 
is LOCAL 3270 DEFINITION. x 
HE HEHE HE HE HEHE HEHE DE HE HEH HEHE EK HE HEH HK HK HK HE HE EEK HE HE EH HE IE EEK HK HK HE HEHE HE EEK HK HE DEH EE HEE HE DEE EE 
APPCONAC, LOCCONAC 

BKEND 


CATALS B.ATCCONDS 

BKEND B.ATCCONDOS 
HE HEH HE DE DE HE HEHE DE DE HE HE DE DE HE EDK EK HEE DE 3 DE DE HE DE DK DK HE DE DK DK IC DE DED EE DE HE HE HE DEE DK HE DE DE DE DK DE DE DE DK DK HE DE DE DK DEK KE EEK 
* CONFIGURATION DEFINITION as 
x NETWORK INCLUDES APPLICATION PROGRAM LIST, NCPBS AND SWITCHOL]. X 
HE HE 3 HE DE DE HE DE DE HEHE DK HE HE HK HE DE BE DE DE DE DK DE DE DE 3 DK DE DE IK DE DE DK HE DE DK HE DE DE DE DE DE DE HE DE DK DK DE DE DE DK DE DE DK DE DE DK DK DE DE DK DK DE DE DK DE DE DE IE 
APPCONO1,NCPBS,SWITCHO] 

BKEND 

CATALS B.ATCCONI] 

BKEND B.ATCCONI1 
HEE DE HE DEE HE HE DE DE DE DE DE DDE DE DE DE 3 DK DIE DE DE IE DE DK HE DE DE BE DE DE HE DE DE DE DE DE DE DK HE 3E DK DE IE DE DK HE DE OE IK HE DE DK HE DE DE DE DE OE OK OE DEE 


% % 
* CONFIGURATION DEFINITION % 
x NETWORK INCLUDES APPLICATION PROGRAM LIST, LOCAL 3270, Bf 
% NCPBS AND SWITCHO2. THE BUFFER VALUES ARE PICKED UP FROM x 
x ATCSTROO. | x 


HEHE HE HEE 3E DE DE DE DK DDE EE DE DE DE DK DE DE DE DK DE DK DE DK DE DE DK DEE EE DE DE DK DE DE DK DK DK DE OE KDE DE HE HE EE DE DE CDE DEDEDE DE EK 
APPCONO1L,NCPBS,LOCCONO], SWITCHO2 
BKEND 


NOTE- ATCCONOO0 is used when first bringing up VTAM with the initial 
start definition. It maybe used afterwards by specifing 
CONFIG=00,LIST=00 at VTAM startup time. 
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DOS/VS SAMPLES 
DOS/VS USSTAB INSTALLATION JCL 


// JOB USSTAB 
// OPTION CATAL 
PHASE name, * 
// EXEC ASSEMBLY,REAL 
Source Deck 
7% 
// EXEC LNKEDT 
7¥ 
/% 


DOS/VS MODETAB INSTALLATION JCL 


// JOB MODETAB 
// OPTION CATAL 
PHASE name, 
// EXEC ASSEMBLY,REAL 
Source Deck 
// EXEC LNKED 
1% | 
1% 


DOS/VS INTERPRET TABLE INSTALLATION JCL 


4/7 JOB ASSEMBLE 
//7 OPTION CATAL 
PHASE name, X 
//7 EXEC ASSEMBLY,REAL,SIZE=64K 
Source Deck 
7% 
/7 EXEC LNKEDT 
1% | 
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DOS/VS SAMPLES 
DOS/VS EXAMPLE FOR LINKING 370475 LOAD UTILITY CSECTS TO VTAM 


//7 JOB PUNCH NCP CSECT MODULES 
// ASSGN SYS001,3330,VOL=RGW110,SHR 
// DLBL IJSYSPR,"*NCP PRL* 
77 EXEC CORGZ 

MERGE PRV,RES 

COPYR CXWMAXI1 , CXWMAXI2, CXWMINI1, CXNMINI2 
7% 
7% 
// JOB LINKEDIT NCP MODULES 
// OPTION CATAL 

PHASE CXWMAXI1,% 

INCLUDE CXWMAXI1 

PHASE CXWMAXI2, x 

INCLUDE CXWMAXI2 

PHASE CXWMINI1,X 

INCLUDE CXWMINI1 

PHASE CXWMINI2, x 

INCLUDE CXWMINI2 
77 EXEC LNKEDT 
7% 
7% 


NOTE- This step is required for DOS/VS VTAM. VTAM must have these 
modules link-edited in order to load the NCP. , 


DOS/VS EXAMPLE FOR INSTALLING 3704/75 INITIAL TESTS 


7’ J9B CREATE 3704/5 INITIAL TEST FILE 
// DLBL IJSYSPH, 'INITTEST',300 
// EXTENT SYSPCH,,,,7220,14 
ASSGN SYSPCH,SYSRES 
// EXEC CSERV | 
PUNCH IFU3705D,IFU3705E 
7% 
7% 
CLOSE SYSPCH,X'00D' 
7% 


NOTE- This step is required for DOS/VS VTAM. VTAM must have these 
modules in a direct access file. } 
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DOS/VS SAMPLES 
DOS/VS VTAM START PROCEDURE 


// JOB CATALP VTAM START PROCEDURE 
47 EXEC MAINT 
CATALP SINET,VM=0.0,E0P=/+ 
* START VTAM EXECUTION 
// ASSGN SYS000,UA 
// OLBL TRFILE,*VTRACE’,0O 
77 EXTENT SYSO001,,,,7600,19 
// ASSGN SYS001,SYSRES_ 
// DLBL NCP45F,*NCP FOR SSS° 
//7 EXTENT SYS008 | 
//7 DLBL NCPSN2,*HAL NCP* 
/7 EXTENT SYS008 
//7 ASSGN SYS008,SYSRES 
4/7 DLBL DIAGFLE,*INITTEST'* 
47 EXTENT SYS008,,,,7220,14 
// ASSGN SYS008,SYSRES 
/7 DLBL NCPDUMP,,0,DA 
// EXTENT SYS007,,,,6880,12 
/7 ASSGN SYS007,SYSRES 
// OPTION NODUMP 
//7 PAUSE ENTER // EXEC ISTINCVT,SIZE=350K 
/+ END OF PROCEDURE _ 
/* | 
1% 


NOTE- This procedure allows the operator to select either of two NCP 
load modules. The use of this procedure allows VTAM to be executed itn 
"FL" only. It also allows update of the procedure catalog while VTAM is 
being executed. The sample does include the file that holds the NCP 
initial test, therefore NCP initial test may be specified in the PCCU 
macro of the NCP definition. 
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DOS/VS SAMPLES 


DOS/VS ACF/VTAM START PROCEDURE CONE NCP) 


// JOB CATALP VTAM START PROCEDURE 
4/7 EXEC MAINT 

CATALP S1NET,VM=0.0,E0P=/+ 
* START VTAM EXECUTION 
* MUST DEFINE A TRACE FILE 
// ASSGN SYS000,UA 
// DLBL TRFILE,*VTRACE',0O 
4/7 EXTENT SYSOO1,,,,7896,48 
// &SSGN SYS001,3340,VOL=DO0S5S111,SHR 
// DLBL NCPACFI,*HAL NCP* 
// EXTENT SY5S008,D0S111,1,0,2880,60 
// ASSGN SYS008,3340,VOL=D05111,SHR 
//7 PAUSE ENTER // EXEC ISTINCVT,SIZE=500K 
7+ END OF PROCEDURE 
1% | 
1& 


NOTE- This procedure allows the operator to select either of two NCP 
load modules. The use of this procedure allows VTAM to be executed in 
"F2" only. It also allows update of the procedure catalog while VTAM is 
being executed. The sample does include the file that holds the NCP 
initial test, therefore NCP initisl test may be specified in the PCCU 
macro of the NCP definition. 
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DOS/VS SAMPLES _ 
DOS/VS NCP STAGE 1 GENERATION JCL 


7/7 JOB NCP STAGE] GENERATION 

7/7 ASSGN SYSSLB,3330,VOL=RGW110,SHR 

7/ DLBL IJSYSSL,"NCP PSL’ 

7/7 OPTION DECK 

7/7 EXEC IFZASM,SIZE=64K 

HEHE HEH HEHE HK DHE HED HEHE HK HE HE DK HE HE HED DEH HK DK DE HE DEE HE DK 3 HE DE DK HE HE HK IK HE HE DK DE HE HE DK HEHE HE DE HE HE KH IE DK DEE DK ODE EDEN 


x % 
7 SOURCE FOR NCP3 DOS | | x 
x - | | x 
HE HE HEHEHE DE HE HEI HE HEHE DE HEE DE HEHE IE HE HIE DE HE DEE DE HEHE DE HEI DE HEHE HE HE HED HE HE IE DE HE IEE HEE HE EE IE EE EEE HEE KK KKK 
/* | 

/% 


NOTE- This step will produce the cards necessary for the rest of the NCP 
generation. The output of this stage will have to be adjusted to point 
to the NCP macro library, if the NCP macros are put ina private 
library. The assemblies produced by the stage 1 job stream should be 
error free. The link-edit stage will have unresolved EXTRNS, but if all 
the assembly steps were correct, these can be ignored. 


PLEASE NOTE 


The stage 1 output should be closely examined. Default- do not create 
MNOTES. All defaults should be checked for correct value. | 
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DOS/VS SAMPLES 
DOS/VS EXAMPLE OF STAGE 2 NCP GENERATION JCL 


4/7 JOB SATLTCT 
“7 ASSGN SYSSLB,3330,VOL=RGW110,SHR 
/7 DLBL IJSYSSL,"NCP PSL’ 
// OPTION DECK,NOXREF 
4/7 EXEC IFZASM,SIZE=64K 
PUNCH " CATALR  SATLTCT’ 
SSATLTCT CSECT 
CXTLTC SWTD=NO,OLTT=1 
* PUT STATE ADDRESS TABLES ON 64 BYTE BOUNDARY 
PADSAT EQU 644+64%C CX-SSATLTCT-1)764)-CX-SSATLTCT) 
DS CPADSAT)X 
* STATE ADDRESS TABLES 
* BSC EBCDIC 
RNSTAEBC BSCPTPT=0,BSCCNIL=1,MPTRB=0 
* DUPLEX LINE CONTROL 


CXBDLST 
SPACE 
END 

7% 

7& 


NOTE- This is an example of the job stream needed for the assembly of 
one of the NCP stages. There are spproximatly 15 stages. Each of the 
stages will produce an object module that should be stored using the 
next example. The final step is a link-edit that will store the 
genersted NCP load module in the system core-image library. 


DOS/VS JCL TO STORE NCP OBJECT MODULES FROM STAGE 2 


7/7 JOB STORE NCP OBJECT MODULES 

4/7 &ASSGN SYSRLB,3330,VOL=DOS111,SHR 

// DLBL IJSYSRL,"NCP PRL* 

4/7 EXEC MAINT 

HED HE 3E DDE HE DE DE HE DE DE DE DE DE DE HE DE DK HE DE DE DK HE DE DE HE DE DK DE HE DE HE HE DE DK DE HE DE DE DE DE DK DE DE HK HE DE HK HE HE DE DK HE DE DE HK HE DE DE DE IE HE HEE HEHE HH 


¥ b 
% INSERT OBJECT FROM NCP ASSEMBLY HERE % 
x STEP STORES OBJECT IN FILE FOR LINK-EDIT STAGE x 
% x 
HE HE HEHE DK HE HE DE DK DK HE HE DE DE DK HEE DE DE DK HE DE DE DK HEE DE DDE HE DE DE DK DEE DE DK DK DK HE DE DK HE DE DC DK DE DE DE DK DK IE DE DE DE DK DK DE DE DE DE DK DK DE DE DE DEE 
7% 

7% 
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DOS/VS SAMPLES 


NOTE- This library its used by the link-edit stage. Ifa new NCP 
generation is required, a different library should be specified unless 
the old NCP is not to be updated. OO : 


DOS/VS SAMPLE FOR MOVING NCP LOAD MODULE 


// JOB PUNCH NCPSSS 
//7 DLBL IJSYSPH, "HAL NCP*,300 
4/7 EXTENT SYSPCH,DOS111,1,0,23880,6 
~ASSGN SYSPCH,SYSRES . 
47 EXEC CSERV 
PUNCH NCPSN2 
7X 
78 
CLOSE SYSPCH,X'O00D! 
7% 


NOTE- This step is required for DOS/VS VTAM. VTAM expects to find the 
NCP load module in a Library specified in the VTAM start procedure. If 
the NCP Generation is done on another DOS system, st least two modules 
must be punched for the new system,NCPXXX and NCPxxxr where NCPxxx is 
the NCP name specified in the newname parameter of the NCP build macro. 
NCPxxxR is the resource resolution table required by the access method 
CEXTM or VTAM). If block handlers were specified for Start/Stop or BSC 
devices, NCPxxxB should also be punched. 
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DOS/VS SAMPLES 


DOS/VS SAMPLE JCL TO DUMP A 3705 AND PRINT THE DUMP 


//7 JOB DUMP DOS NCP 
4/7 ASSGN SYS007,X'OBF" 
4/7 DLBL NCPDUMP, 'NCP3DUMP*,,DA 
// EXTENT SYS008,,,,6880,12 
// ASSGN SYS008,SYSRES 
//7 EXEC IFUREAD 
DUMP FROMADDR=200,FORMAT=Y, BUF=Y 
7% 
7% 


NOTE- Options for this procedure are found in Chapter 8 of the NCP 
Generation Manual, GC30-3008. This example uses the same srea defined in 
the VTAM start procedure. 


DOS/VS SAMPLE JCL TO PRINT A 3705 DUMP TAKEN BY VTAM 


//7 JOB PRINT DOS NCP 
7/7 DLBL NCPDUMP,,0,DA 
4/7 EXTENT SYS007,,,,6880,12 
// ASSGN SYS007,SYSRES 
47 EXEC IFUDUMP 
DUMP FROMADDR=200,FORMAT=Y,BUF=Y 
7% 
7% 


NOTE- Options for this procedure are found in Chapter 8 of the NCP 
Generation manual, G6C30-3008. This example operates on the dump area 
that is defined in the VTAM start procedure. 
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OS/VS1 SAMPLES 


5.2 + OSZVS1 SAMPLES 


REFERENCES, 
OS/VS1 Planning and Use Guide | GC24-5090 
OS/VS1 System Generation Reference /6¢26-3791 
OS/VS1 Access Methods Services 6026-3840 
OS7VS1 VTAM System Programmer's Guide GC27-6996 
OS/VS1 JCL Reference | GT28-0618 
OS’VS VTAM Reference Summary - —- GX27-0034 
ACF/VTAM System pkogrenurs Guide | | $C038-0258 
ACE/VTAM Installation Guide —$C38-0269 
ACF/VTAM Reference Summary $X27-3021 


OS/VS1 SYSTEM GENERATION MACRO INSTRUCTIONS 


The ectual SYSGEN specifications are not included. VTAM and GTF should 
be included as part of the sysgen. The samples included sare based on the 
availability of two 3330 drives, an additional scratch drive and a tape 
drive. The VTAM system specifications are consistant with the NCP 
samples in Chapter 7 of this manual. | 


DE DE DE DE FE IE DE IE DE DE DE DE DE DE IE SE DE DE HE DE DE HE SE HE SE DE DE DE DE DE DE DE HE DE DE DE DE DE DE SE DE DE HE DE HE DE DE DE DE DE HE SE DE DE DE DK DE DE DE DE DE DE DE DE DE EK EE EE 


x ¥% 
* THIS IS A PORTION OF STAGE 1 SYSGEN FOR. THE VS71-R6.0 x 
¥% ¥ 


DE HEE DE DE DE DE DE DE IE DE HE DE DE DE DE DE DE DE DE DE DE HE DE DE DE HE DE SE DE DE DE DE DE DE DE DE DE DE SE DE DE DE DE DE DE DE NE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE HE DE DE 
TITLE "VSI/REL6.0 - HARDWARE SPECIFICATION - CHANNEL 0° 

CHANNEL ADDRESS=0,TYPE=MULTIPLEXOR 

IODEVICE ADDRESS=00A,UNIT=3505 

IODEVICE ADDRESS=00B,UNIT=3525, FEATURE=TWOLINE 

ITODEVICE ADDRESS=00C,UNIT=2540R,MODEL=1 

IODEVICE ADDRESS=00D,UNIT=2540P ,MODEL=1 

IODEVICE ADDRESS=00E,UNIT=3211 

IODEVICE ADDRESS=00F,UNIT=1403,MODEL=N1,FEATURE=UNVCHSET | 

IODEVICE ADDRESS=(010,2),UNIT=3791L €3790 LOCAL) 
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OS/VS1 SAMPLES 


IODEVICE ADDRESS=01F,UNIT=3215,MODEL=1 
TITLE "VS1/REL6.0 - HARDWARE SPECIFICATION - CHANNEL 0 (3270 LOCAL)" 
IODEVICE ADDRESS=(020,3),UNIT=3277,MODEL=2, * 
FEATURE=CEBKY3277,AUDALRM,MAGCDRD, NUMLOCK, SELPEN, DOCHAR) 
IODEVICE ADDRESS=023,UNIT=3286,MODEL=2,F EATURE=DOCHAR 
IODEVICE ADDRESS=(024,2),UNIT=3284,MODEL=2, FEATURE=DOCHAR 
IODEVICE ADDRESS=(€026,14),UNIT=3277,MODEL=2, % 
FEATURE=CEBKY3277,AUDALRM,MAGCDRD, NUMLOCK, SELPEN, DOCHAR) 
TITLE "VSI/REL6.0 - HARDWARE SPECIFICATION - CHANNEL 0 (€3705)!' 
TODEVICE ADDRESS=05F,UNIT=3705,ADAPTER=CAlL 
TODEVICE ADDRESS=0BF,UNIT=3705,ADAPTER=CA2 
TITLE "VSI/REL6.0 - HARDWARE SPECIFICATION - CHANNEL 1’ 
CHANNEL ADDRESS=1,TYPE=SELECTOR 
IODEVICE ADDRESS=(130,4) ,UNIT=2314, IOREQUE=PRIORITY 
IODEVICE ADDRESS=(160,8),UNIT=3330, IOREQUE=PRIORITY 
TITLE "VSI/REL6.0 - HARDWARE SPECIFICATION - CHANNEL 2’ 
CHANNEL ADDRESS=2, TYPE=BLKMPXR 
IODEVICE ADDRESS=(230,8),UNIT=2314, IOREQUE=PRIORITY 
TODEVICE ADDRESS=(260,8),UNIT=3330, IOREQUE=PRIORITY 
TITLE "VSI/REL6.0 - HARDWARE SPECIFICATION - CHANNEL 3° 
CHANNEL ADDRESS=3,TYPE=SELECTOR 
IODEVICE ADDRESS=(330,6),UNTT=2314, IOREQUE=PRIORITY 
IODEVICE ADDRESS=(360,38),UNIT=3330, TOREQUE=PRIORITY 
TODEVICE ADDRESS=(380,4),UNIT=3420,MODEL=3, * 
FEATURE=(9-TRACK, DUALDENS} 
IODEVICE ADDRESS=3BF,UNIT=3705,ADAPTER=CA2 
TITLE "'VSI/REL6.0 - CONTROL PROGRAM SPECIFICATIONS’ 


CTRLPROG ASCII=INCLUDE, INCLUDE ASCII SUPPORT x 
AUTO=CVMSTART,NOLIST), AUTO START LIST ¥ 
DYNINTR=(€10,50,200,10000), DYNAMIC DISPATCH PARAMETERS xX 
DYNPART=CP3-P5), PARTITIONS IN DYNAMIC DISPATCH xX 
FETCH=STD, NO PCI FETCH CVM SYS) x 
MAXIO=80, GENERATE 80 12-STARS * 
OPTIONS=(CBLDL,NODDRSYS,NODEBCHK,RDE,RER,TRSVCTBL), 
OVERLAY=ADVANCED, FULL-OVERLAY CHECKING 
RESIDNT=CACSMETH, ERP,RENTCODE,TRSVC), VTAM REQ* 
SECURTY=FPROT, | FETCH PROTECT PARTITIONS pS 
SYSQUE=16, 16K SQA INITIALLY x 
TRACE=20, 20 ENTRY SYSTEM TRACE TABLE x 
TZ=(W,5,0), | 5 HOURS WEST OF GMT IS LOCAL x 
VIRTUAL=4096, G4 MEG VIRTUAL MACHINE % 

VTAM REQUIRED 


VSAM=INCLUDE VIRTUAL SEQ ACCESS METHOD VTAM REQ 


VTAM REQUIRED 
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-OS/VS1 SAMPLES 


DATAMGT ACSMETH=C(CBTAM, ISAM, TCAM,VTAM),— 


IND=YES 


EDITOR SIZE=(200,40) 


GRAPHICS GSP=EXCLUDE, PORRTNS=EXCLUDE 


JES 


MACLIB 


PAGE 


ALCUNIT=73608, 
BUFSIZE=3952, 
JOBLOG=YES, 
JOBQEXT=25, 
JOBQINT=200, 
JOBQNXT=10, 
JOBQVOL=VSIR60,. 
JOUTLIM=0, 
NUMBUFS=100, 


ALL ADDITIONAL 


NO GRAPHICS 
SPOOL ALLOCATION UNIT 


JES BUFFER SIZE (€3952+144=40 96) 


LOG WTO AND WTORS 

JOBQ EXTENTION ENTRIES 
INITIAL RESIDENT ENTRIES 
NUMBER OF EXTENTIONS 

VOL SER OF SYS1.JOBQUEUE 

NO MAX TO OUTPUT LINES 

NUMBER OF I/O BUFFERS IN POOL 


RDR=CR=2, Y=5,B=800,A=2,N=84), 


SPOLCAP=80, 
SPOLVOL=VS1R60, 
STEPWTP=60, 
SWDSLMT=80, 
WTLRCDS=2000, 


80 PERCENT SPOOL GIVES MESSAGE 


VOL SER OF SYS1.SYSPOOL 
MAX WTP PER JOB STEP 


NUMBER OF RESERVED JOBQ BLOCKS 


MAX WTL HELD PER DATA SET 


WTR=(W=4,U=0,Z2=6,B= 2660) 
LOADER SIZE=256 


EXCLUDE=(GPS,0CR), 
INCLUDE=ISSP 
DEV=3330, 
SIZE=(CYL,35); 
VOLNO=VS1R60 


INCLUDE PARTITION FO LE 
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PARTITNS 


SCHEDULR 


PO0(C-X*,S-128), 
PI(C-*,5-64), 
P2(C-F,S-256), 
P3(C-A,S-320), 
P4(C-B,5-320), 
P5(C-C,$-320), 
P6(C-N,S-768), 
P7(C-M,S-320), 
P8(C-*,S5-0) 
ALTCONS=029, 
BCLMT=100, 
CONSOLE=-O1F, 
ESV=SMF, 
EVA=(15,15), 
HARDCPY=SYSLOG, 
IOC=01F, 
JOBQLMT=400, 
JOBQLST=20, 
JOBQTMT=100, 


SNA PRODUCT INSTALLATION GUIDE 


NOT NEEDED 


INDUSTRY SYSTEM SUPPORT MACROS 
PAGING DEVICE TYPE (FOR NON-VM USE) 


35 CYLINDERS OF AREA 
YVOLSER OF PAGING PACK 


SYSTEM PARTITION-NEED 128K for VSAM 


SYSTEM PARTITION. 
HI-PRIORITY USER PARTITION 
NORMAL USER PARTITION 


eee @ 


eee? 


LARGE USER PARTITION 
LOW-PRIORITY USER PARTITION 
LOW-PRIORITY SYSTEM PARTITION 
ALTERNATE CONSOLE ADDRESS 

100 SLOTS FOR BROADCAST 
PRIMARY CONSOLE ADDRESS 

I/O STATS TO SMF DATA SET 
TEMP READ/WRITE THRESHOLD 
HARD COPY TO SYSPOOL DATA SET 
INTEGRATED OPERATOR CONSOLE 
400 BLOCKS PER INIT 

RESIDENT LIST ENTRIES 


BLOCKS FOR CRITICAL SITUATION 


VTAM REQ 
INCLUDE INDUSTRY SUB-SYSTEM 


K K K K K KK K K XK 
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OS/VS1 SAMPLES 


OPTIONS=(MCS,REMOTE,VM)}, FULL USEFUL OPTIONS S 
REPLY=5, NUMBER OF WTOR REPLY BUFFERS x 
SMF=FULL, FULL-BLOWN SMF X 
SYSWFMT=20, QUEUE BLOCKS PER LOGICAL TRACK % 
SYSWTMT=2200, CRITICAL RDR, WTR REQUIREMENT x 
VLMOUNT=AVR,; AUTO VOLUME RECOGNITION % 
WILCLSS=L, SYSOUT=L FOR LOG x 
WTOBFRS=60 NUMBER OF WTO BUFFERS 
TITLE "VSI/REL6.0 - SECONDARY CONSOLE SPECIFICATION’ 
SECONSLE AREA=(5,6,8), LOGICAL SCREEN AREAS % 
CONSOLE=020, ADDRESS OF THIS CONSOLE x 
PFK=1l2, USE ALL 12 PF KEYS x 
VTAM REQUIRES SYSTEM CONSOLES TO HAVE ROUTCDE=ALL 
ROUTCDE=ALL, ROUTE ALL MESSAGES x 
VALDCMD=(1,2,3) ALL COMMANDS ARE VALID 
SPACE 2 
SECONSLE AREA=(5,6,8), LOGICAL SCREEN AREAS  & 
CONSOLE=021, ADDRESS OF THIS CONSOLE x 
PFK=12, USE ALL 12 PF KEYS pS 
ROUTCDE=ALL, ROUTE ALL MESSAGES % 
VALDCMD=(1,2,3) ALL COMMANDS ARE VALID 
SECONSLE AREA=(5,6,8), LOGICAL SCREEN AREAS % 
CONSOLE=022, ADDRESS OF THIS CONSOLE x 
PFK=12, USE ALL 12 PF KEYS % 
ROUTCDE=ALL, ROUTE ALL MESSAGES % 
VALDCMD=(1,2,3) ALL COMMANDS ARE VALID 
TITLE *VSI/REL6.0 - USER SVC SPECIFICATION’ 
SVCTABLE SVC-255-D1-S0, USER SVC - TYPE 1 
TITLE "VSI/REL6.0 - PRINTER UNIVERSAL CHARACTER SET SPECIFICATION’ 
UCS DEFAULT=CH11,HN),IMAGE=ALL 
TITLE "VSI/REL6.0 - GENERATE - STAGE 2 SYSGEN INPUT’ 
GENERATE GENTYPE=ALL, FULL SYSGEN * 
INDEX=SYS1, INDEX SYSTEM DATASETS SYS1 x 
RESVOL=CVS1R60,3330) SYSTEM RESIDENCE VOLUME 


END 


NOTE- Information for preparing the 0S/VS1 system for VTAM is found in 
OS/VS1 System Programming Library: VTAM (GC27-6996), and the OS/VS1 
Sysgen Reference (6C26-3791) 
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OS/VS1 SAMPLES — 
OS/VS1 SYSTEM PARAMETER DEFINITIONS 


a ADD NAME=IEAAPFPS,LEVEL= “00, SOURCE=0, Et ALL 
IMS.RESLIB USRLB2, o 
IMS.PGMLIB USRLB2, 
SYS1.VTAMLIB IPOR21,. 
SYS1.NCPLIB USRLB2;, 
SYSI1.LINKLIB2 USRLBI, -. 
SYS2.LINKLIB USRLBI, 
_ SYSL.OLTLIB USRLBI, 
SYSL.CDSLIB USRLBI, 
LAST. ENTRY DUMMY 


iF ADD ee LNKLSTPS,LEVEL=00,SOURCE=0, Lie ALL 


 SYSI.LINKLIB, ©. . RX KXXXXXX 
SYSI.LINKLIB2, | USER UTILITIES. 2 -  KXXXXXXXXXX 
IMS.RESLIB, IMS LIBRARY XXXXXXXXXXXXXXXXXX 
SYS1.TCAMLIB, TCAM PROGRAMS XXXXXXXXXXXXXXXX 
NCP6.SSPLIB, NCP6 UTILITIES XXXXXXXXXXXXXXXX 
SYS2.LINKLIB USER LINK LIB 


Jf ADD NAME=VATLSTPS 


USRLB1,1,0,3330-1 ;N LIBRARY PACK 
USRLB2,1,0,3330-1 ,N LIBRARY PACK 
DLIB01,1,2,3330 »N VS1 DLIB 
VSIRES,1,2,3330 »N SYSRES 
NCPLIB,1,0,3340 »N NCP6 LIBRARY 


NOTE- Information for preparing the OS/VS1 system parameters is found in 
OS/VS1 Sysgen Reference (GC26-3791) 
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OS/VS1 SAMPLES 
OS/VS1 START PARAMETER DEFINITION (VTAM AND ACF/VTAM) 


./ ADD NAME=ATCSTROO,LEVEL=00,SOURCE=0,LIST=ALL 
HE HE HE HEHE DE DE HEHE DH IE HEHE HE HEE DE DE HE HE DE DE DK HE DE DE DK HE HE EEK HE DE DE DE HE HE EE HK HE HE DEK HK IE HEHE DE HE HEHE HE KK HE HEHEHE 


% % 
* MINIMUM STARTUP - SHOULD BE USED FOR OS/VS VTAM AND ACF/VTAM x 
¥% ¥* 
DE HEE HEHE HE HK HE HE HEE HE DE HE HE HK IE HE HE HE HE HE EE HE HE EE HE EK IE EE HE HE HE HEE EE HE HK EEE HE EE EEE HE EK EE KE HE KE EE EK EEE HE HM 
TRACE, TYPE=SMS, ID=VTAMBUF, Xx 
MAXSUBA=31, X 
SSCPID=01, : x 
NETSOL=NO 


NOTE- The above start-up definition can be used to initialize VTAM. The 
default buffer values are unusable and should be changed before 
activating any nodes. 
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OS/VSL SAMPLES. 
OS/VS1 VTAM START PARAMETER DEFINITION (TEST) 


.f ADD NAME=ATCSTROL,LIST=ALL,SOURCE=0,LEVEL=00 | 
Peet ett teers ett rtts ttt ttt tt testi rte tte tite ttettt tte ttt tte tt pie et est eee et! 


VTAM START PARAMETERS 
NOTE: THE IOBUF (BSZ) PARAMETER MUST EQUAL THE UNITSZ VALUE 
| IN THE NCP HOST MACRO DEFINITION. THE FORMAT OF THE 
BUFFER POOL START PARAMETERS IS EITHER 
XXBUF=(BNO,BSZ,BTHZ) AS INDICATED BELOW. 


CK K KK KK OK 
KK KK KK K 


HEE DE IEE HE DE DE IE DE DE DEE DE DE DE EK 5 DE DEE DE DE DE IE DE DE I DE DE DE DE DE DE DE DE DE DE DE DE DE DE DC DE DE DE DE DE DE DE SE DE DE SE DE DE OE DE DE DE DE DE DE DE OEE OEE EK 
Seti tit ttt te ttt ett ett tttisrstttt stiri titittititttt ert rit ttt ti tt eh: 


CONFIG=O01, PREDEFINED LIST OF MAJOR NODES CATCCONOL]) X 
SSCPID=01, VTAM PREM TAP Galen X 
TRACE, TYPE=SMS, ID=VTAMBUF, X 
NETSOL=NO, NETWORK SOLICITOR IS NOT TO BE STARTED X 
MAXSUBA=15, NUMBER OF MAJOR NODES, VALUE MUST ALSO BE IN NCP X 
APBUF=(64%,,58), ACTIVE & INACTIVE BUFFER POOL - PAGEABLE pubis X 
CRPLBUF=(€120,,110), RPL-COPY POOL IN PAGEABLE STORAGE X 
IOBUF=(71,152,50), FIXED STORAGE MESSAGE POOL X 
LFBUF=(33,,33), LARGE FIXED STORAGE I/0 BUFFER POOL X 
LPBUF=(100,,90), LARGE PAGEABLE-STORAGE BUFFER POOL X 
NPBUF=(100,,90), DEVICE CONNECTION BUFFER POOL, PAGEABLE X 
PPBUF=(130,152,120), PAGEABLE DATA BUFFER POOL | Xx 
SFBUF=(40,,40), SMALL FIXED STORAGE BUFFER POOL xX 
SPBUF=(12,,12), SMALL PAGEABLE-STORAGE BUFFER POOL xX 
 UECBUF=(130,,120), USER-EXIT CONTROL BLOCK CUECB) POOL X 
WPBUF=(€130,,120) DEVICE CONNECTION BUFFER POOL - PAGEABLE 
id ENDUP | 
7% 


NOTE- Details for coding and filing start parameters are found in 
Chapter 7 of the OS/VS1 System Programmer's Guide(GC27-6996). 


ATCSTROO is required by VTAM even if all defaults are taken. The system 
defsults will not support more than one active application program, 
including the Network Solicitor, and will not support an = active NCP. 
ATCSTRO1 specifies the values necessary to support a small network 
consisting of an NCP with 6 Ports, 6 Start/Stop terminals, 4 local 
3270's, 6 BSC terminals, 7 PU's, and 32 LU's | 
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OS/VS1 SAMPLES 


OS/VS1 ACF/VTAM START PARAMETER DEFINITION CTEST) 


.f ADD NAME=ATCSTRAC, LEVEL =00,SOURCE=0,LIST=ALL 
HEHE DE HE DHE HE HE 3 DEH DE HE HE DE DE DE DK DEK HK EE DE EE HK KE HE EE EE KD EK DE DE EK HE EE EK HK HE EE DE EEE HK HK EEE HHH 


% x 
% ATCSTROO IS REQUIRED OR THIS DEFINITION CAN REPLACE IT. % 
% ¥% 
x NOTE: THE IOBUF (BUFSIZE) PARAMETER MUST EQUAL THE UNITSZ VALUE x 
x IN THE NCP HOST MACRO DEFINITION. THE FORMAT OF THE x 
% BUFFER POOL START PARAMETERS IS EITHER ¥ 
% XXBUF=CBASENO, BUFSIZE,SLOWPT,XPANNO,XPANPT) % 
% OR XXBUF=VBSZ AS INDICATED BELOW. % 
* XPANNO OF 1 WILL CAUSE ACF/VTAM TO ACQUIRE 1 PAGE OF * 
x BUFFERS SINCE THEY ARE ALWAYS ACQUIRED IN PAGE % 
¥ INCREMENTS. x 
HEH HE HE HE HK HK HE HE HE EK KE ER EK EE EEK EE EE EE EK HE EE EE EE KEE KE EK EK KE EE EK EK EEE KK KH KKK KKK 
TRACE, TYPE=SMS,ID=VTAMBUF, X 
TNSTAT,CNSL,TIME=10, Xx 
MAXSUBA=31, Xx 
NOPROMPT, X 
CONFISG=AC, Xx 
SSCPID=O1, X 
HOSTSA=13, Xx 
MAXAPPL=40, x 
VTAMEAS=150, X 
NETSOL=NO, xX 
SFBUF=(60,,2,,01,3), **¥* XPANNO OF 1 WILL CAUSE ACF/VTAM TO ACQUIRE xX 
LFBUF=(€37,,2,,01,3), 1 PAGE OF BUFFERS SINCE THEY ARE ALWAYS X 
LPBUF=(€32,,1,,01,2), ACQUIRED IN PAGE INCREMENTS XX x 
NPBUF=(23,,2,,01,3), x 
CRPLBUF=(40,,2,,01,3), X 
IOBUF=(€60,152,4,,01,26), X 
Note - The difference between SLOWPT and XPANPT must be greater than 
the largest MAXBFRU defined in any NCP or Local definition. 
APBUF=(66,,2,,01,3), | X 
SPBUF=(66,,2,,01,3), X 
UECBUF=(39,,2,,01,3), X 
WPBUF=(27,,2,,01,3), xX 


PPBUF=(29,152,2,,01,3) 
sid ENDUP 

7% 

4/7 


NOTE- Details for coding and filing start parameters are found in the 
ACF/VTAM System Programmers Guide: VTAM (SC38-0258). 
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OS/7VS1 SAMPLES 


OS/VS1 VTAM APPLICATION DEFINITION EXAMPLE | 


7 ADD NAME=APPCONO1,LEVEL=00,SOURCE=0,LIST=ALL 
rr NUMBER NEW1=10,INCR=10 ; | 
* APPLICATION PROGRAM DEFINITION FOR VTAM * 
* WHERE THE OPERANDS AVAILABLE ARE: | | x 
X PRICT=PASSWORD, PASSWORD MUST ALSO BE DEFINED IN ¥ 
x | 3 | APPLICATION PROGRAM ‘ACB’. ® 
¥ BUFFACT=NI1, APPLIES ONLY TO BASIC NEWE. * 
is AUTH=CACQINOACQ, = ALLOWS APPLICATION PROGRAM TO USE x 
— | THE OPNDST MACRO WITH THE ® 
* 7 ACQUIRE OPTION. x 
x BLOCK|NOBLOCK, NOT USED WITH SDLC OR 3270. x 
x PASS|NOPASS, ALLOWS USE OF CLSDST MACRO % 
x WITH THE PASS OPTION. x 
X TCAM) © ALLOWS PATH TO TCAM 7 
¥ — 


HEE DE DE DEE DE DE DK DE HE DE DE DK DE DE DED HE DE 3E DK DE HE DE DE DK DK DE HE DE DE 3 HE HE DE DE DK DEE DE DE DK DE IE DE DE DE DK HE DE DE DE DE HEE DE DE HE EEE EE 
SAMP1 APPL AUTH=CACQ) 
DBDCCICS APPL AUTH=CACQ, BLOCK) 
BATCH APPL AUTH=CACQ) 
VSPC APPL AUTH=CACQ,NOBLOCK, NOPASS),PRICT=ALVERTA 
INQ@3790 APPL AUTH=CNOACQ) 
INQALL APPL PRTCT=OKAYOKAY, AUTH=CACQ) 
HOSTPGML APPL AUTH=CNOACQ) 
INQ APPL AUTH=CACQ, BLOCK) 
TESTI APPL AUTH=CACQ, PPO) 
BASIC2 APPL AUTH=CACQ,PASS,S5P0,BLOCK) | 
TEDQTCAM APPL AUTH=CACQ, TCAM, BLOCK) ,PRTCT=PASSWORD | 


TCAM APPL AUTH=CACQ,TCAM,BLOCK),PRICT=PASSITON 
RTAM APPL AUTH=ACQ, BUFFACT=2 
err Z - ENDUP 

7% : 


NOTE- Defining application parameters is described in Chapter 5 
(Defining Application Programs) of the OS/VS1 VTAM Systems Programmer's 
Guide(GC27-6936). | | 


The following applies to VTAM II, not ACF/VTAM: 
When a definition is changed in SYSI.VTAMLST, the member name must be 
deleted from the SYSI1.VTAMOBJ data set, otherwise VTAM will not use the 


new version. This applies to all members of SYSI.VTAMLST except the 
start and configuration definitions. 
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OS/VS1 SAMPLES 


OS/VS1 ACF/VTAM APPLICATION DEFINITION EXAMPLE 


f ADD NAME=APPCONAC 
HE HE HE HE HE HE DE DE DE HE DE DK DE HE DE DE HE DE DE DK DE HE DE DE DE DE HE DE DE DE HEHE DE DK DE DE DE DE DK DEE DE DK DE DE DE DE DK DK DE DE DE DK DE IE DE DE DK DE DE DE DK DK IK DE DE DEE 


x * 
* APPLICATION PROGRAM DEFINITION FOR VTAM % 
x WHERE THE OPERANDS AVAILABLE ARE: % 
% ACBNAME=ACBNAME, MINOR NODE NAME. DEFAULTS TO NAME xX 
% ON APPL STATEMENT. 

x PRICT=PASSWORD, PASSWORD MUST ALSO BE DEFINED IN x 
x APPLICATION PROGRAM ‘ACB*. x 
x BUFFACT=NI/1, MAXIMUM NUMBER OF VTAM PPBUF'S. IT 
¥ | APPLIES TO BASIC MODE ONLY. pS 
x VPACING=N, MAXIMUM NUMBER OF NORMAL-FLOW 
x REQUESTS FROM LU. x 
x MODETAB=MODETAB NAME, NAME OF MODETAB TO BE USED BY THE X 
APPLICATION. % 
X DLOGMOD=DEFAULT LOG- NAME OF LOGMODE ENTRY TO BE USED X 
% MODE ENTRY IF NONE IS OTHERWISE PROVIDED. % 
* EAS=N1404, NUMBER OF CONCURRENT SESSIONS THIS * 
% | APPLICATION PROGRAM WILL HAVE WITH xX 
x ANY LOGICAL UNITS. ¥ 
AUTH=CACQ|NOACQ, ALLOWS APPLICATION PROGRAM TO USE x 
x THE OPNDST MACRO WITH THE x 
* ACQUIRE OPTION. % 
as PPO|SPO|NOPO, DEFAULTS TO NOPO. SEE THE PROGRAM X 
% OPERATOR GUIDE FOR ITS USE. 
X BLOCK |NOBLOCK, BASIC MODE ONLY. % 
* VPACE|NVPACE, DETERMINES IF APPLICATION IS TO BE X 
% SUBJECT TO VPACING FOR LU. DEFAULTS* 
TO VPACING. x 
X PASS|NOPASS) ALLOWS USE OF CLSDST MACRO x 
X WITH THE PASS OPTION. — x 
x % 


HE HEHE HE HE DE DE HE DE DE HE DE DE DE IE IK DE DE HE DEE IK HK DE IE HE DE DE DE HK DE DE DE DK DE DE HE DE DE DE DE DE IEE DK DE IE DK DEK HK DEE HK DEE HE KEE HK EK HEHE KKK AK K 
SAMPL APPL AUTH=C(CACQ),DLOGMOD=$3270,EAS=2 

cIcs APPL AUTH=CACQ),EAS=40 

PROG] APPL AUTH=CACQ),EAS=10 

INQALL APPL PRTICT=OKAYOKAY,EAS=10 

RTAM APPL AUTH=CACQ),EAS=10 

BATCH AFPL AUTH=(CACQ),EAS=1 

INQ3790 APPL AUTH=CNOACQ),MODETAB=MODE37 90, EAS=4 
TEST3 APPL AUTH=C(ACQ),EAS=1 

SYSSSS APPL AUTH=CACQ),DLOGMOD=BATCH,EAS=1 

I fe 
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OS/VS1 SAMPLES 


NOTE- Defining and filing application parameters is. described in 
Defining VTAM Application Programs of the ACF/VTAM Systems Programmers 
Guide: (5038-0258). 


OS/’VS1 NCP DEFINITION EXAMPLE 


Sf ADD NAME=NCPSN2,LEVEL=00,SOURCE=0,LIST=ALL 

ww NUMBER NEW1=10,INCR=10 | 

¥ % 
x SOURCE FOR NCP | | * 


See NCP examples in Chapter qs 


* | ¥ 
HEHEHE HH HH HHH HEHEHE HE HEHEHE HK DEED HHH HEH HE HEHE HEE DH HE HE OK I ON 3H HC HE HE HE DE DI HEHE HC HE IE IIH HE HE 
.f ENDUP 

7% 


Notes~ Chapter 4 of the OS/VTAM System Programmer's Guide and the 
NCP/VTAM generation guide are required. The host macro definition must 
be consistant with the VTAM start parameters. 


The source from the NCP generation should be used here after removing 
the assembler control cards. When testing the NCP the first time, all 
the PU's should contain the VTAM parameter "ISTATUS=INACTIVE'. After 
loading the NCP they should be varied ‘active’ individually. Later, when 
the PU and its resources are operational, this member can be updated to 
change the ISTATUS to ‘ACTIVE’. 


The following applies to VTAM II, not ACE/VTAM: 
When a definition is changed in SYSI1.VTAMLST, the member name must be 
deleted from the SYS]1.VTAMOBJ data set, otherwise VTAM will not use the 


new version. This applies to all members of SYSI1.VTAMLST except the 
start and configuration definitions. 
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OS/VS1 CONFIGURATION DEFINITION 


sf ADD NAME=ATCCONOO, LEVEL=00,SOURCE=0,LIST=ALL 

HE 3 HE HE HEHE DE DE HE HE DK DEE HE DE DE DE DK DK DE HE DE DE DE DE DE DE DE DE EK DK HEE DE DE DE DE DE DEK HEE DEE DE DE EEK EK KK EEK HH HEN 
x % 
% START-UP CONFIGURATION, APPLICATION CONFIGURATION ONLY x 
* % 
HE HE HE HE HE HEHE HE DE DE EE HE HE DE DE 3 DE IE DE HE HE DE DE I HE HE HEE DE DE IK HEE DE DEE DE HK DH HK DEK HE DE DE DEE EI KKK EHH EEK 
APPCONOL 

f ADD NAME=ATCCONOL,LEVEL=00,SOURCE=0,LIST=ALL 

HE HE EK DEE HE HE DEH DED DE HE HE DE DE DE DE HK DE DE DE DK HK HE DE DE DE EK DK DE HE HE EE DE OE HK EE HK KK HK HE EEE EEK HK HE EEE EK MH 
pS % 
x START-UP CONFIGURATION, LOCAL 3270, AND NCP x 
x x 
HEHE HED DE HEHE HE DE DE HE DE HE HEE DE DE IE DE HE HE DE IE HK DK HE DE DE DE DK HE KK HEE DE HE DE EK DEE DE DK DEE HE DE DEE DE DE HK HE DE HE DE DE EEK HK EE EK 
APPCONO1,LOCCONO] 

af ENDUP 

1% 

/7/ 


NOTE- To allow the operator to activate the NCP, ATCLONO00 should be 
specified. To autoload the NCP, ATCCONO1] should be specified. 
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OS/VS1 SAMPLES 
OS/VS1 USSTAB INSTALLATION JCL 


//USSTAB JOB "‘USSTAB ASSEMBLY',CLASS=C | 

//STEP1 EXEC ASMFCL 

7ASM.SYSPUNCH DD DUMMY 

//7&SM.SYSIN DD X 

Source Deck 

//LKED.SYSLMOD DD DSN=SYS1.VTAMLIBCName) ,DISP=SHR 
7¥® 


OS/VS1 MODETAB ASSEMBLY 


//MODETAB JOB "MODETAB ASSEMBLY' ,MSGLEVEL=1,CLASS=C 

7/STEP1 EXEC ASMFCL 

/7ASM.SYSPUNCH DD DUMMY 

//7KSM.SYSIN DD X 

Source Deck 

/7\LKED.SYSLMOD DD DSN=SYSI1.VTAMLIBCModetab Name),DISP=SHR 
7% | 


OS/VS1 INTERPRET TABLE INSTALLATION JCL 


//LOGASM JOB "LOGTAB ASSEMBLY’* 

//STEPL EXEC ASMFCL 

47A&SM.SYSPUNCH DD DUMMY 

/J/&SM.SYSIN DD *X 

Source Deck 

//LKED.SYSLMOD DD ODSN=SYS1.VTAMLIBCName),DISP=SHR 
7% 


NOTE- The interpret table is required in order to allow non-SDLC 
terminals to "logon’ to application programs vis the Network Solicitor. 
Chapter 9 of the OS/VS1 VTAM System Programmers Guide describes the 
generation of the interpret table. 
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OS/VS1 SAMPLES 
OS/VS1 EXAMPLE OF START PROCEDURE CVTAM OR ACF/VTAM) 


//PROCUP JOB 123,°UPDATE PROCS’,REGION=100K 
47 FXEC PGM=IEBUPDTE,PARM=NEW 
//7SYSPRINT DD SYSOUT=A 

//SYSUT2 DD DSNAME=SYS1.PROCLIB,DISP=SHR 
//SYSIN DD DATA 

ae ADD LIST=ALL,NAME=NET,LEVEL=01,SOURCE=0 
ae NUMBER NEW1=10,INCR=10 

//NET EXEC PGM=ISTINAOIL 

7/NTAMLIB DD DSN=SYS1.VTAMLIB,DISP=SHR 
//NTAMLST DD DSN=SYS1.VTAMLST,DISP=SHR 
//NTAMOBJ DD DSN=SYS1.VTAMOBJ,DISP=SHR 
//TNITEST DD DSN=SYS1.LINKLIB,DISP=SHR 
7/N\CPLOAD DD ODSN=SYS1.NCPLOAD,DISP=SHR 
77NCPDUMP DD DSN=NCPDUMP,DISP=MOD 
//OLTCDSDD DD DSN=OLTLIB,DISP=SHR 

77SYMSYM DD DSN=SYMSYM, DISP=SHR 

4 ADD LIST=ALL,NAME=NETSSC,LEVEL=01,SOURCE=0 
7 NUMBER NEW1=10,INCR=10 

//NET EXEC PGM=ISTINAOL 

//STEPCAT DD DSN=USRVCAT, DISP=SHR 

//NTAMLIB DD DSN=SYS1.VTAMLIB,DISP=SHR 
//NTAMLST DD DSN=SYS1.VTAMLST,DISP=SHR 
//NTAMOBJ DD DSN=SYS1.VTAMOBJ,DISP=SHR 
//INITEST DD DSN=SYS1.LINKLIB,DISP=SHR 
//LRNCKPT DD DSN=LRNCKPT,DISP=MOD 

4/NCP001 DD DSN=NCP001,DISP=MOD 

7/LOC001 DD DSN=LOC001,DISP=MO0D 

//SWT001 DD DSN=SWT001,DISP=MO0D 

//NCPLOAD DD DSN=SYS1.NCPLOAD, DISP=SHR 
47NCPDUMP DD DSN=NCPDUMP,DISP=MOD 

7 ENDUP 

4/ 


NOTE- The DD cards for data sets OLTLIB and CDSLIB should be omitted 
unless the Customer Engineer has prepared these data sats. The system 
can be installed without these dats sets but they must be installed if 
TOLTEP is to be used. 
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OS/VS1 RTAM GENERATION SAMPLE 


LINE LINEID=1,LDESCR=(1,1)3, BSC,FDX,TRANSPARENCY xX 
AUTOLOG=YES | 
LINE LINEID=2,LDESCR=(1,0), BSC,FDX,NO TRANSPARENCY xX 
AUTOLOG=YES mt * s 
LINE LINEID=3,LDESCR=(0,1)3, BSC,HDX, TRANSPARENCY X 
AUTOLOG=YES 
LINE LINEID=4,LDESCR=(0,0), | BSC,HDX,NO TRANSPARENCY | X 
AUTOLOG=YES 
* 2770 COMPRESS/NO TRANSPARENCY 512 BYTE BUFFER 
TERMINAL TDESCR=(3,0,3,6),LNUM=1,COMPRES=YES, x 
BUFXSIZ=512,TERMID=1 | 
¥ 
* 2770 COMPRESS/NO TRANSPARENCY 256 BYTE BUFFER | 
TERMINAL TDESCR=(3,0,3,6),COMPRES=YES, X 
TERMID=2 
* 3780 COMPRESS/NO TRANSPARENCY | 
TERMINAL TDESCR=(3,7,3,1),COMPRES=YES,PCHS=0, TERMID=3 
¥ 
* 3780 COMPRESS/NO TRANSPARENCY/3781 CARD PUNCH 
TERMINAL TDESCR=(3,7,3,3),COMPRES=YES, TERMID=4 
x 
% 3780 NO COMPRESS/TRANSPARENCY/3781 CARD PUNCH 
TERMINAL TDESCR=(3,7,3,7),COMPRES=NO, TERMID=5 
% 
* 3770 SNA------ CONSOLE PRINTER ONLY 
TERMINAL TDESCR=(3,8,5,1),VBUF=3 
TERMINAL TDESCR=(3,8,5,1),VBUF=6 
TERMINAL TDESCR=(3,8,5,1),VPUF=9 
TERMINAL TDESCR=(3,8,5,1),VBUF=20 
TERMINAL TDESCR=(3,8,5,1),VBUF=45 
¥ 3770 SNA------ CONSOLE PRINTER + LINE PRINTER 
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TERMINAL TDESCR=(3,8,5,3),VBUF=3 
TERMINAL TDESCR=(3,8,5,3),VBUF=6 
TERMINAL TDESCR=(3,8,5,3),VBUF=9 
TERMINAL TDESCR=(3,8,5,3),VBUF=20 
TERMINAL TDESCR=(3,8,5,3),VBUF=45 
* 3790 SNA --CONSOLE, RDR, 2 PTRS, 
TERMINAL TDESCR=(3,8,5,2),RDRS=1,PTRS=3,PCHS=0, X 
PLGN=0,COMPRES=YES, BUFXSIZ=256,CNMSGNO=5, VBUF=9, X 
NODE=(RJELF,RJE2F,RJE3F,RJE4¢F),SESSLIM=4,CPACTBL=NO 


RTAM INTPR=YES, TPBFSIZ=512,MXINTBR=1024,PORTS=3, 


SNA 


TPBUF=19,TPREAD=6, TPPRINT=8, TPPUNCH=4, 


COMP=YES, 


1 WIR CDISK) 


~ KK 


WAITTIME=1,MSGFCTR=10,CPACT=YES 


END 
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OS/VS1 JCL FOR 


7/7 ADDGTF JOB 
/7 EXEC 
//SYSPRINT DD 
//SYSUT2 DD 
//SYSIN DD 


OS/VS1 


GTF PROCEDURE AND PARAMETERS FOR VTAM TRACE TO TAPE 


MSGLEVEL=1,REGION=100K,CLASS=A 
PGM=IEBUPDTE,PARM=NEW 

SYSOUT=A 
DSNAME=SYS1.PROCLIB,DISP=SHR 
DATA 


-4 ADD NAME=GTFTAPE,LIST=ALL 


-7 NUMBER NEW1= 


//GTFTAPE PROC 
/7/TEFPROC EXEC 
// 

7/7TEFRDER DD 


4/ DCB= 


//7SYSPRINT DD 
7/SYSLIB DD 
-4 ENDUP 

7¥ 


10, INCR=10 

A=GTF2 
PGM=HHLGTF, 
PARM=*MODE=EXT, DEBUG=NO, TIME=YES* 
UNIT=2400-3,VOL=SER=GTFXXX,LABEL=(,NL), 
CBLKSIZE=3500,RECFM=U),DISP=SHR 
SYSOUT=A,SPACE=CTRK, (1,133 
DSN=SYS1.PARMLIBC&A), DISP=SHR 


//PARMDEF JOB MSGLEVEL=1,REGION=1LOOK 


/f EXEC 
//SYSPRINT DD 
//SYSUT2 DD 
S/SYSIN DD 


PGM=IEBUPDTE,PARM=NEW 
SYSOUT=A 
DSNAME=SYS1.PARMLIB,DISP=SHR 
DATA 


- ACD NAMEC=GTF2,LIST=ALL 


TRACE=RNIO,USR 
-4 ENDUP 
1% 


NOTE- Information on this service aid may be found in the 
Services Aid SRL GC28-0665. 
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OSs/VS1 


AGE 5-39 


~OS/VS1 SAMPLES 
OS/VS1 JCL FOR PRINTING VTAM TRACE RECORDS ~ 


//ADDPRT JOB MSGLEVEL=1,REGION=100K,CLASS=A 

At EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSPRINT DD SYSOUT=A | 

//SYSUT2 DD DSNAME=SYS1.PROCLIB,DISP=SHR 

//8YSIN DD DATA 

./ ADD NAME=GTFTPRT,LIST=ALL 

./4 NUMBER NEW1=10,INCR=10 © 

//NPRDMP PROC A=GTFP2,ASREGN=128K 

//% USE TO DUMP VTAM TRACE FILES 

//DMP EXEC PGM=HMDPRDMP,REGION=&ASREGN 

//7PRINTER DD SYSOUT=A 

//TAPE DD DSN=SYS1. TRACE, UNIT=2400-3,LABEL=(€,NL),DISP=SHR, 
17 VOL=SER=GTFXXX | a : 
7/SYSUT1 DD DSN=&&WORK, SPACE=(CYL,(3,1)),UNIT=SYSDA 
//SYSPRINT DD SYSOUT=A,SPACE=CTRK,(1,1)) | 
//SYSIN DD DSN=SYS1.PARMLIB(&A),DISP=SHR 


-7 ENDUP 

7% 

/7PARMUP JOB MSGLEVEL=1,REGION=100K 
77 EXEC PGM=IEBUPDTE,PARM=NEW 


//SYSPRINT DD SYSOUT=A 

7/SYSUT2 DD DSNAME=SYS1.PARMLIB,DISP=SHR 

4/SYSIN DD DATA 

-f ADD NAME=GTFP2,LIST=ALL 

EDIT DDNAME=TAPE,RNIO,USR=CLO1L,USR=CLO2,USR=TPIO,USR=LINE 
END 

-4 ENDUP 

7% 


NOTE- Information on this service aid may be found in the OS/VSI 
Services Aid SRL GC28-0665. 
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5.3 * OS7SVS (COS7VS2 R1.7) SAMPLES. 


REFERENCES 
OS/VS2 Sysgen Reference GC26-3792 
OS/VS2 SVS VTAM System Programmer's Guide GC27-0049 
OS/VS2 SVS VITAM Component Release Guide GC27-0053 
OS/VS2 JCL Reference GT28-0618 
OS/VS2 System Programming Library: Service Aids GT28-0663 
OS/VS VTAM Reference Summary GX27-0034 
ACF/VTAM System Programmers Guide §$€38-0258 
ACF/VTAM Installation Guide SC38-0269 
ACF/VTAM Reference Summary $X27-3021 
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 OS/SVS SAMPLES 
OS/SVS SYSTEM GENERATION MACRO INSTRUCTIONS 
The actual SYSGEN specifications sre not included.The VTAM = system 


definitions for OS/VS5S2 R1.7 are slmost the same as OS/VSI R6. 


IODEVICE MACRO INSTRUCTIONS REQUIRED FOR VTAM IF USED. 


meee lUl =| RO 


IODEVICE ADDRESS=(010,2),UNIT=3791L (3790 LOCAL) 


IODEVICE ADDRESS=(020,3),UNIT=3277,MODEL=2, % 
FEATURE=CEBKY3277,AUDALRM,MAGCDRD, NUMLOCK, SELPEN, DOCHAR) 

IODEVICE ADDRESS=023,UNIT=3286,MODEL=2, FEATURE=DOCHAR 

IODEVICE ADDRESS=(024,2),UNIT=3284,MODEL=2, FEATURE=DOCHAR 


IODEVICE ADDRESS=05F,UNIT=3705,ADAPTER=CA1 
IODEVICE ADDRESS=O0BF,UNIT=3705,ADAPTER=CA2 


DATAMGT MACRO INSTRUCTION ADDITION. 


DATAMGT ACSMETH=CVTAM, TCAM), REQUIRED FOR VTAM AND/OR TCAM xX 
IND=YES INCLUDE INDUSTRY SUB-SYSTEM 


DATASET MACRO SPECIFIFICATION CHANGES 


DATASET VTAMLIB, VOL=(SSVS70,3330),SPACE=(CYL,(5,1,5) 
DATASET INDMAC, VOL=(SSVS70,3330) 


NOTE- Information for preparing the 0S/SVS system for VTAM_ is found in 
OS/7VS2 SVS VTAM System Programmer's Guide (€GC27-0049), and the OS/VS2 
SVS VTAM Component Release Guide (GC27-0053). 
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OS7SVS SAMPLES 


ACF/VTAM PARAMETER DEFINITIONS 


For ACF/VTAM definitions, please refer to the ACF/VTAM definitions in 
the OS/VS1 section. 


OS/SVS START PARAMETER DEFINITION EXAMPLE 


-7 ADD NAME=ATCSTROO,LEVEL=00,SOURCE=0,LIST=ALL 
HEH HEE HE HE 3D DEE DE DEE DE DKK DE BK HE DE DDE DE DK DEE DED DE HK HE DEK EK EH KH DEDEDE HE EEE KK KH KKK KN 


x x 
* MINIMUM VTAM SYSTEM --- NO NCP x 
X x 
HEHEHE HK DEB DEE HEE DE DE DE DK EE DE DE DK DK DEE HE DE DE DE DE EE EEE DK DE OK OE EE EEE IK HEHE KE EEK KKK HHH KK KK 
CONFIG=00, PREDEFINED LIST OF MAJOR NODES CATCCONOO) X 
SSCPID=01 VTAM IDENTIFICATION 


-4 ADD NAME=ATCSTROL,LIST=ALL,SOURCE=0,LEVEL=00 
SEE HE HE DEDEDE HE DE DE DE DE DE DEE DE DE DE DK HE HE DE DE DE DE DE KD HEE EEK EE EE EK KK EK EEK HHH HK HK KK KK 


X 7 % 
* VTAM START PARAMETERS | X 
* NOTE: THE IOBUF (CBSZ) PARAMETER MUST EQUAL THE UNITSZ VALUE ¥ 
% IN THE NCP HOST MACRO DEFINITION. THE FORMAT OF THE x 
X BUFFER POOL START PARAMETERS IS EITHER x 
% XXBUF=(BNO,BSZ,BTHZ) OR XXBUF=VBSZ AS INDICATED BELOW. x 
% ¥* 
oS. t 2.0.0.0. 0.0,5.0.0.0,.0.¢.0.0,.0.0.0.0.0. 2.0.2.0. 0.0.5, 0.0.0. 0.0. 0.0.0.0. 0.0 0.0, 0.0.0.0 0.0.0. 0.0. 0 5.9,5.0,.5 2.5.5. 0,5. 0.6.0.5. 0.0.5.5: 
CONFIG=01, PREDEFINED LIST OF MAJOR NODES CATCCONOL) 
NETSOL=NO, NETWORK SOLICITOR IS NOT TO BE STARTED 

MAXSUBA=15, NUMBER OF MAJOR NODES, VALUE MUST ALSO BE IN NCP 


IOBUF=(€71,152,50)3, FIXED STORAGE MESSAGE POOL 
PPBUF=(76,152,72), PAGEABLE DATA BUFFER POOL 
TRACE, TYPE=SMS, ID=VTAMBUF 

os -ENDUP 

7% 


MK KK OK 


NOTE- Details for coding and filing start parameters are found in 
Chapter 5 of the OS/VS2 SVS VTAM System Programmer's Guide (GC27-0049). 


ATCSTROO 1s required by VTAM even if all defaults are taken. The system 


defaults for IOBUF AND PPBUF should not be used. ATCSTROI will support a 
small NCP and can be used for initial system checkout. 
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OS7S5VS5 SAMPI.ES 
0S/SVS VTAM APPLICATION DEFINITION EXAMPLE 


7 “ADD NAME= APPCONOL, LEVEL=00,SOURCE=0, LIST= ALL 


«7 NUMBER NEW1=10,INCR=10 

MTETITICTTTTICT ITT TTT LITT T TELE LETC ILELESLELULEELEULLLELULL ELLE iis 
* * 
x APPLICATION PROGRAM DEFINITION FOR VTAM x 
x WHERE THE OPERANDS AVAILABLE ARE: x 
x PRTCT=PASSWORD, | PASSWORD MUST ALSO BE DEFINED IN x 
% | APPLICATION PROGRAM ‘ACB’. x 
x BUFFACT=N[1, MAXIMUN PPBUF QUEUE FOR APPLICATION 
x AUTH=CACQ|NOACQ, ALLOWS APPLICATION PROGRAM TO USE * 
x | TRE OPNDST MACRO WITH THE BS 
x | } ACQUIRE OPTION. x 
x BLOCK|NOBLOCK, NOT USED WITH SDLC OR 3270. x 
x PASS|NOPASS) ALLOWS USE OF CLSDST MACRO x 
SS WITH THE PASS OPTION. x 
¥ % 


3630909 IE ECC 
SAMP1 APPL  AUTH=CACQ) 

DBDCCICS APPL AUTH=C(ACQ) 

BATCH APPL AUTH=CACQ) 

INQ@3790 APPL  AUTH=(NOACQ) ~~ 

INQALL APPL PRTCT=QKAYOKAY, AUTH=CACQ) 

EMESG APPL PRTCT=VTAMMESG, AUTH=(ACQ, BLOCK) 
INQ | APPL AUTH=CACQ,BLOCK) 

TESTI APPL AUTH=CACQ,PPO) 

BASIC2 APPL AUTH=CACQ,PASS,SP0,BLOCK) 
SYSSSS APPL AUTH=CACQ). 

7 _ ENDUP ‘ 

1% 


NOTE- Defining and filing application parameters is described in Chapter 
3 of the OS/VS2 SVS VTAM Systems Programmer's Guide. 
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OS/SVS SAMPLES 


OS/SVS NCP DEFINITION EXAMPLE 


sf ADD NAME=NCPSN2,LEVEL=00,SOURCE=0,LIST=ALL 

7 NUMBER NEW1=10,INCR=10 

HE HE HE HE HE DE HE HEHE HE DE IE HC HE HEH HE DEE HE DE DEE HE EE DE NK HE DE DE I DE HEE HK HE HE HE HE HE DED HE HE HEE HE EE IE HE EE KEE EEN 
x * 


¥ SCURCE FOR NCP | x 


see NCP examples in Chapter 7. 


x : % 
HE HE HE HEHE HEHE SE IE HE HE DE SEE HE DE EE DE DE SE SE SE SE DE DE DE SE HE DE DE DE DE DE DE DE SE DE DE SE EE SE DE DE EK EE EE EE SE DEE DE DE EE EE EE EE EEE HE 
wo ' ENDUP 

7% 


NOTE- Chapter 2 of the SVS VTAM System Programmer's Guide and the 
NCP/VTAM generation guide are required. The host macro definition must 
-be consistant with the VTAM start parameters. pare | | 


The source from the NCP generation should be used here after removing 
the assembler control cards. When testing the NCP the first time, all 
the PU's should contain the VTAM parameter 'ISTATUS=INACTIVE'. After 
loading the NCP they should be varied ‘active’ individually. After a PU 
and its resources are operational, this member can be updated to change 
the ISTATUS to ‘ACTIVE’. 


The following applies to VTAM II, not ACF/VTAM: 
When a definition is changed in SYS1.VTAMLST, the member name must be 
deleted from the SYSI1.VTAMOBJ data set, otherwise VTAM will not use the 


new version. This applies to sll members of the SYSIL.VTAMLST except the 
start definition. 
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OS/SVS SAMPLES 


OS/SVS CONFIGURATION DEFINITION 


af ADD NAME=ATCCON00,LEVEL=00,SOURCE=0,LIST=ALL | 
Prete te etetett tte tt et rte testes tp tteett ttt eset etter ttt ttt ete et tte tet! 
% | | | 4 
¥ START-UP CONFIGURATION, APPLICATION CONFIGURATION ONLY ¥ 
4 % 
HEHE HEE HE HEH EHH HE HEHEHE HE HEH HEHEHE HEHEHE HE HEH HHH HE HE HEHEHE HE HE HK HEHE HEH HE HEHE HH HEE HH HK 
APPCONOL] | | 

7S ADD NAME=ATCCONO1,LEVEL=00,SOURCE=0,LIST=ALL 

HEH HEH HH HEHEHE HEH HEHE DHE HEH HED HED HE DE HE HED HED HEN DEED HE HE DK HE DHE DK HE DK IED HE HE DK EDK HE DE HE IE HEE HE KE EEK 
x ¥ 
X START-UP CONFIGURATION, LOCAL 3270, AND NCP | % 
: | | % 


PES SS SS SSEL SSS S ESS SSS SSS STS SSS S ESS SSE SSS SESS SSS ESET ES SS ES SS SESS TESS SEES SS 
APPCONO1,LOCCONO1,NCPSN2 

4 EWDUP 

7% 

47/ 


NOTE- To allow the operator to activate the NCP, ATCCONO0 should be 
specified. To sutoload the NCP, ATCCONO1] should be specified. | 
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OS7SVS SAMPLES 
OS/SVS SAMPLE INSTALLATION JCL FOR USSTAB 


//USSTAB JOB ‘USSTAB ASSEMBLY',CLASS=C 
//7STEPL EXEC ASMFCL 

/7ASM.SYSPUNCH DD DUMMY 

//A&SM.SYSIN DD 


Add source here: | 
7/LKED.SYSLMOD DD DSN=SYSI.VTAMLIBCusstab),DISP=SHR 
7% 


NOTE- The System Programmers Guide for the applicable level of VTAM or 
ACF/VTAM should be referenced. 


OS7SVS SAMPLE JCL FOR INTERPRET TABLE INSTALLATION 


7/LOGASM JOB ' *,MSGLEVEL=1,REGION=200K 
//STEPL EXEC ASMFCL 

77ASM.SYSPUNCH DD DUMMY 

“7ASM.SYSIN DD 


Add source here: 


/7LKED.SYSLMOD DD DSN=SYS1.VTAMLIBCtable),DISP=SHR 
/% 


NOTE- The interpret table is required in order to allow non-SDLC 
terminals to ‘logon’ to application programs via the Network Solicitor. 
Chapter 9 of the OS/SVS VTAM System Programmers Guide describes’ the 
generation of the interpret table. 
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OS/SVS EXAMPLE OF START PROCEDURE 


7 ADD LIST=ALL,NAME=NET,LEVEL=01,S0URCE=0 
of NUMBER NEW1=10,INCR=10 

//*% ADD REGION SIZE IF TO BE RUN IN A REGION 
4/NET EXEC 


//NTAMLIB ODD DSN=SYS1.VTAMLIB,DISP=SHR 
//NTAMLST DD DSN=SYS1.VTAMLST,DISP=SHR _ 
//NTAMOBJ DD DSN=SYS1.VTAMOBJ, DISP=SHR © 
//INITEST DD DSN=SYS1.LINKLIB, DISP=SHR 
//NCPLOAD DD DSN=SYS1.NCPLOAD, DISP=SHR 
//7NCPDUMP DD DSN=NCPDUMP,, DISP=MOD 

//OLTCDSDD DD DSN=OLTLIB,DISP=SHR 

/7SYMSYM DD DSN=SYMSYM, DISP=SHR 

7 ADD LIST=ALL,NAME=NETSSC,LEVEL=01,SOURCE=0 


PGM=ISTINSO1] 


.f NUMBER NEW1=10,INCR=10 
//NET EXEC PGM=ISTINSOL 


S/STEPCAT 
//NTAMLIB 
//NTAMLST 
//NTAMOBSJ 
//TNITEST 
//7URNCKPT 
//NCPO01 

7/LOCO01 

//SWT001 

//NCPLOAD 
//NCPDUMP 


7 ENDUP 


17 


DD 
DD 
DD 
DD 
DD 
DD 
DD 
DD 
DD 
DD 
DD 


DSN=USRVCAT,DISP=SHR 
DSN=SYS1.VTAMLIB,DISP=SHR 
DSN=SYS1.VTAMLST,DISP=SHR 
DSN=SYS1.VTAMOBJ,DISP=SHR 
DSN=SYS1.LINKLIB,DISP=SHR 
DSN=LRNCKPT,DISP=MOD 
DSN=NCP001,DISP=MOD 
DSN=LOC001,DISP=MOD 
DSN=SWT001,DISP=MOD 
DSN=SYS1.NCPLOAD, DISP=SHR 
DSN=NCPDUMP, DISP=MOD 


NOTE- The DD cards for data sets OLTLIB and CDSLIB should be omitted 


unless the Customer 


can be installed without these data sets but 
before TOLTEP can be used. 
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OS/SVS JCL FOR GTF PROCEDURE AND PARAMETERS FOR VTAM TRACE TO TAPE 


-7 ADD NAME=GTFTAPE,LIST=ALL 

-f NUMBER NEW1=10,INCR=10 

//GTFTAPE PROC A=GTF2 

//TEFPROC EXEC PGM=AHLGTF,REGION=64K, 


// PARM="MODE=EXT,DEBUG=NO, TIME=YES' 
//TEFRDER DD UNIT=2400-3,VOL=SER=GTFXXX,LABEL=C,NL), 
// DCB=(CBLKSIZE=3500,RECFM=U),DISP=SHR 


//7SYSPRINT DD SYSOUT=A,SPACE=CTRK,(1,1)) 
f//SYSLIB DD DSN=SYS1.PARMLIBC&A) ,DISP=SHR 


-7 ENDUP 

7% 

//PARMDEF JOB MSGLEVEL=1,REGION=100K 
// EXEC PGM=IEBUPDTE,PARM=NEW 


//7SYSPRINT DD SYSOUT=A 

//SYSUT2 DD DSNAME=SYS1.PARMLIB,DISP=SHR 
7/7SXYSIN DD DATA | 
-7 ADD NAME=GTF2,LIST=ALL 

TRACE=RNIO,USR 

-7 ENDUP 

7% 


NOTE- Information on this service aid may be found in the OS/VS Services 
Aid SRL GC28-0633. 
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OS/SVS JCL FOR PRINTING VTAM TRACE RECORDS 


-7 ADD NAME=GTFTPRT,LIST=ALL 

-7 NUMBER NEW1=10,INCR=10— 

//NPRDMP PROC A=GTFP2,ASREGN=128K 

77% USE TO DUMP VTAM TRACE FILES 

//7DMP EXEC PGM=AMDPRDMP, REGION=&ASREGN 

//PRINTER DD SYSOUT=A | 

//TAPE DD DSN=SYS1.TRACE,UNIT=2400-3,LABEL=(,NL),DISP=SHR, 
(7 _ VOL=SER=GTFXXX 

//SYSUT1 DD DSN=&&WORK, SPACE=C(CYL,(€3,1)),UNIT=SYSDA 
//SYSPRINT DD SYSOUT=A,SPACE=CTRK, (1,13) 

4/SYSIN DD DSN=SYS1.PARMLIBC&A),DISP=SHR 


-7 ENDUP 

7% 

//7PARMUP JOB MSGLEVEL=1,REGION=100K 
i EXEC PGM=IEBUPDTE,PARM=NEW 


//SYSPRINT DD SYSOUT=A 

//SYSUT2 DD DSNAME=SYS1.PARMLIB,DISP=SHR 

/7SYSIN DD DATA | | | 

-4 ADD NAME=GTFP2,LIST=ALL 

EDIT DDNAME=TAPE,RNIO,USR=CLO1,USR=CLO2,USR=TPIO,USR=LINE 
END 

-7 ENDUP 

7% 


NOTE- Information on this service aid may be found in the OS/VS Services 
Aid SRL GC28-0633. 
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5.4 : OS/MVS SAMPLES. 


REFERENCES 
OS/VS2 Sysgen Reference GC26-3792 
OS/VS2 MVS Utilities GC26-3902 
OS/VS2 System Programming Library: Service Aids GC28-0674 
OS/VS2 System Programming Library: GC28-0681 


Initialization and Tuning Guide 


OS/VS2 VTAM System Programming Library: VTAM | GC28-0688 
OS/VS2 JCL GC28-0692 
Operator's Library: OS/VS2 Reference( JES2) GC38-0210 
OS/VS VTAM Reference Summary | GX27-0034 
ACF/VTAM System Programmers Guide $€38-0258 
ACF/VTAM Installation Guide $C38-0269 


OS/MVS SYSTEM GENERATION MACRO INSTRUCTIONS 


The actual SYSGEN specifications sre not included. VTAM must be included 
as part of the sysgen. 

DE HEH HEH HE HK EK EK EE KE KK EEE HE EE HE EE HEE HE KE HE EE IE HK DE HE DE HE EE HE IE EE DE DE EEE KE EK EE EE EE KE KEE EOE EK KEKE 
* THIS IS A PORTION OF THE STAGE 1 SYSGEN LISTING FOR THE VS/2-R3.7 x 
DHE HHH HEH HE HEHE DE HE HE KE HE EK EE EE HE ESE EE DE HEE HE DE HE EE DE EK EK EE DEE DE DE DE DE DE DK DE DE DE DE DE DE DE DE DK DE DE DE DE DE DE DE KE DEE HEE EK 


ss MULTIPLEXER CHANNEL IO DEVICES CPARTIAL) * 
HEE HE HE DE EEE DE DE HE BE HIE DE DE DEE DE DE EE HE 3 DE DE IE DEDEDE IE HE DE DEK HE IE HE KH KK KE HEH KH KH HEH HEH KKK KKK 
IODEVICE UNIT=3215, 3158 KB CONSOLE xX 
ADDRESS=009 
13705 IODEVICE UNIT=3705, x 
ADAPTER=CA1, X 
ADDRESS=019 
IODEVICE UNIT=3215, X 


ADDRESS=01F 


G320-6028 (2779) SNA PRODUCT INSTALLATION GUIDE PAGE 5-51 


~ OS/MVS SAMPLES 


x CHANNEL 1 10 DEVICES | | — & 
3636363309 


PRT3800 IODEVICE UNIT=3800,ADDRESS= C110), FEATURE= CGS2 158,168(610) 


IODEVICE UNIT=2305, _— | - | X 
MODEL=2, | | _ | X 
| ADDRESS=1D0 | | | 
* CHANNEL 2 I0 DEVICES oe ; x 
pei tetrtr tert tre ttt titettt ret i ttt ttt trtsttttetittttttettttti titer ttt 
DSK220 IODEVICE UNIT=3330,MODEL=11,ADDRESS=(220,4),O0PTCHAN=9, * 
FEATURE=ALTCTRL | 
* CHANNEL 3 IO DEVICES - - — 
HE HEHEHE HE HEH HEHE HE IE HEE DEE HEE HEE HE HK DE DEE DE IE DE DE HE DE DE DE DE HE 3G DE DE DEE DE IK HE HE DE EK DE DE DE HEE EE DE EE HK HEE HEE KE HHH HK 
DSK348 IOQDEVICE UNIT=3330,MODEL=1, - : x 
OPTCHAN=8, FEATURE=ALTCTRL, | X 
iy Oe ADDRESS=(348,8) | | | 
* CHANNEL 4 IO DEVICES | | % 
HH HHH HH HHH H HHH HH HHH HEHEHE I I III 
137052 IODEVICE UNIT=3705,ADAPTER=CAl, 3705-I, CAG, X 
ADDRESS=418 ae 
E37052 IODEVICE UNIT=3705,ADAPTER=CAl, 3705-E, CA4, X 
ADDRESS=41A | FUTURE 
C37052 IODEVICE UNIT=3705,ADAPTER= CA2, 3705-C, CA2, | X 
| ADDRESS=41C ~~ | FUTURE | | 
J3705 | IODEVICE UNIT=3705,ADAPTER= CAl, 3705-J, CA4, X 


ADDRESS=498 
IODEVICE UNIT=3277,MODEL=2, a X 
ADDRESS=(4A0,32), | | . xX 
FEATURE=(DOCHAR, _ _ | x 
SELPEN, EBKY3277,KB78KEY,NUMLOCK, AUDALRM) 
IODEVICE UNIT=3277,MODEL=2, = = © 
ADDRESS=(4C0,32), 
FEATURE=C(DOCHAR, 
SELPEN, EBKY3277 , KB78KEY , NUMLOCK , AUDALRM) 
IODEVICE UNIT=3791L,ADDRESS=4E0 3274 
x CHANNEL 5 I0 DEVICES | | x 
KKK KKK KKK K KKK HK HH KKK HK HHH HK KH HHA HK HHH HK HK HHA K HK HK KKK HK KKK KKK RK KKK KKK KKK KKK 
DSK530 IQDEVICE UNIT=2314, X 
- ADDRESS=(530,8) | 
T5808 IODEVICE UNIT=3420,MODEL=8,ADDRESS=(580,6), x 
FEATURE=(OPT1600,SHARABLE) , OFFLINE=YES 
HHH KK SYSTEM CONSOLES ae 
Pettitt tttttttttittttettt tte ttt ett t tte eee e este estes tet tt test ete eee eee f 
CONM CONSOLE MCONS=O1F,ALTCONS=01A, $= 2 MASTER CONSOLE UNDER VM 
ROUTCDE=ALL, NO DEFAULT 
OLDNTOR=1, OLDNTOR=ALL 
— -TOC=YES DEFAULT=NO 
CON CONSOLE SECONS=01A,ALTCONS=009, 3158 CONSOLE Xx 
AREA=10, X 


mM KK 


~ KK 
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PFK=12 NO DEFAULT 

CON4 CONSOLE SECONS=4A0,VALDCMD=(1,2,3), 158 SEC CONS 3270 X 
ROUTCDE=ALL, x 
AREA=10,ALTCONS=4A1,PFK=12 

¥X*XXX 'MVS/REL3 - CONTROL PROGRAM SPECIFICATION’ 

CTRL CTRLPROG OPTIONS=CDEVSTAT,RDE,RER,BLDL,CRH),SQA=9,REAL=256, H 
TZ=(W,8),ASCII=INCLUDE, STORAGE=16777216, x 
CSA=3000,VRREGN=512,PAGNUM=(9,9), x 
ACRCODE=YES,APFLIB=(SYS1.VTAMLIB,MVSRES,SYS1.VTAMOBJ, = + 
MVSRES) 

SCHEDULR SCHEDULR BCLMT=100,PRISUB=JES2, x 
SUBSYS=(JES3,ECSS,ECST, JESO, JESP,JESQ,JESR,JES,JEST, X 
JES4¢,JES5,JES6,JES7,JES8,JES9), + 
HARDCPY=(SYSLOG,ALL,CMDS), X 
DEVPREF=(3330-1,3330,2305-2,2305-1,3350,3340,2314,2400) 

%  JES3 GENNED IN FOR SECONDARY SUBSYSTEM SUPPORT 

JES CNS=((009,3215))2,LOCLJES=NO 

CHKPT CKPTREST ELIGBLE=(€20,100,101,102,103,110,120,140,160,4092) 

EJECT 

DATAMAN DATAMGT  ACSMETH=(BTAM,TCAM,ISAM,GAM,VTAM), | X 
GRAPHCS=C(PORRTNS,GSP), ; X 
TABLE=ALL,UCSDFLT=ALL, IND=YES 

TSO TSO LOGTIME=20000 | 

EDIT EDIT DSTYPE=SYSTEST, BLOCK=800, FORMAT=FIXED, FIXED=(80-80),X 
CONVERT=CAPSONLY 

xX DATASET SPECIFICATIONS | HHH HE KK HHH 

SPACE DATASET  BRODCAST,SPACE=(CYL,(C1)) 

DATASET  CMDLIB,SPACE=(CYL,(3,1,112)) 

DATASET  TELCMLIB,SPACE=C(CYL,(2,1,84)) 

DATASET  VTAMLIB,SPACE=(CYL,(2,1,56)) 

AFFINITY AFF-AFFPGM00-0,AFF-AFFPGM01-0,AFF-AFFPGMO02-0, x 
AFF-AFFPGM03-0, X 
AFF-AFFPGM04-0, X 
AFF-AFFPGM05-0, X 
AFF-AFFPGM06-1, x 
AFF-AFFPGM07~-1, X 
AFF-AFFPGM08-1, x 
AFF-AFFPGM09-1, X 


AFF-AFFPGM1LO-1 
NOTE- Information for preparing the OS/MVS system for VTAM is found in 


OS/MVS System Programming Library: VTAM (GC28-0688), and the OS/MVS 
System Generation Reference (G6C26-3792) . 


G320-6028 (2/79) SNA PRODUCT INSTALLATION GUIDE PAGE 5-53 


PAGE 5-54 


~OS/MVS SAMPLES 


OS/MVS SYSTEM PARAMETER DEFINITIONS 


A ADD NAME=IEASYS00, LEVEL= 00,SOURCE=0,LIST=ALL 


APF=PS, 
APG=07, 
BLDLF=00, 
CMD=00, 
CSA=3644, 
DUMP=DASD, 
FIX=00, 
HARDCPY=C(SYSLOG, 
ALL, 
CMDS), 
IPS=00, 
LNK=PS, 
LOGCLS=A, 
LOGLMT=999999, 
MAXUSER=36, 
PAGNUM=(3,2), 


AUTHORIZATION LIST 


AUTOMATIC PRIORITY GROUP IS 7 DEFAULT 
FIX ITEABLDOO TABLE | 
SET TOD PROMPT,SDUMP,TRACE ON DEFAULT 


CONSIDER SETTING TO LIMIT USER REG TO 8 MEG 
PLACE SVC DUMPS ON DASD DEVICES DEFAULT 
FIX MODULES SPECIFIED IN BASE AND TSO LIST 


HARDCOPY LOG IS SYSTEM LOGCSYSLOG) 


RECORD ALL WTO/WTOR WITH ROUTE CODES 


RECORD ALL COMMANDS AND RESPONSES 


SELECT ITEAIPSO00 INSTALL PERF SPECS FOR SRM 
SPECIFY LNKLSTOO AS LINK LIST 


WILL NOT BE PRINTED BY DEFAULT 


MUST BE 6 DIGITS, MAX WTL MESSAGES QUEUED 
CSYS TASKS + INITS + TSOUSERS) < 36 
ALLOW ADDITION OF 3 PAGE D/S & 2 SWAP D/S 


OrI=reEs, ALLOW OPERATOR OVERRIDE TO IEASYS00 
OPT=00, SPECIFY IEAOPTO0O0 CSRM TUNING PARMETERS) 
PAGE=C(PAGE.IPOJ2101, PLPA PAGE DATA SET 
PAGE. IPOJ2102; COMMON PAGE DATA SET 
~PAGE.IPOJ2103,L), USERCLOCAL) PAGE DATA SET 

REAL=128, ALLOWS 2 64K JOBS OR 1 128K JOB TO RUN V=R 
RSU=0, NO RECONFIG STORAGE UNITS DEFAULT 
SMF=00, SELECT SMFPRM0Q, SMF PARMETERS DEFAULT 
SQA=5, SIZE=(3+3)%64K=384K VIRTUAL STORAGE 
VAL=PS, SELECT VATLSTO0 DEFAULT 
VRREGN=128, DEFAULT REAL-STORAGE REGION SIZE DEFAULT 
WrOBFRS=250,CVIO, SET NUMBER OF WTOQ BUFFERS 
WrORPLY=10 SET NUMBER OF WTOR BUFFERS 
7% THIS COMPLETES THE SYSP sae 
7% 
7® NOTE 1: NOTE THAT SCAN OF THE SYSP PARAMETERS ENDS 
7% AT FIRST PARAMETER WITHOU1 A COMMA. 
7% WHEN MODIFYING ANY PARAMETER EXCEPT THE LAST SPECIFIED, © 
7% INCLUDE THE COMMA. 
7% 
/* NOTE 2: PAGE PARAMETER SPECIFIED AT IPL TIME MERGES WITH TEASYSXX 
7% SEE INIT AND TUNING GUIDE GC28-0755-0 - - 
1% ITEASYSO0 SOURCE OF PAGE PARAMETER 
7% 
7* NOTE 3: THE FOLLOWING PARAMETERS HAVE BEEN OMITTED BY CHOICE 

 CLPA RE-CREATION OF PLPA IS OPERATOR CHOICE 

— CVIO DO NOT DELETE VIO D/S - CLPA IMPLIES CVIO 
DUPLEX= NO DUPLEX D/S - OPTIONAL WITH SU 7 
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MLPA= NO MLPA PARAMETERS 

NUCMAP 

PURGE DO NOT DEMOUNT MSS VOLUMES 

SWAP= NO SWAP DATASET SPECIFIED 

SYSP=00 SPECIFIED BY OPERATOR AT IPL FOR THIS SYSP 


NOT A VALID PARMETER FOR IEASYSXX 


/* THIS IS THE END OF IEASYSO 


YA ADD NAME=IEAFIX00,LEVEL=00,SOURCE=0,LIST=ALL 


SYSI.LPALIB IEAVAROO, 4% 6816 RCT INIT/TERM 
IEWFBOSV, /% 6384 PROGRAM FETCH 
LEWMSEPT, 7% FETCH ALIAS SEE ABOVE 
IGCOOOLF, /* 5072 PURGECSVC16) 
IGCO001G, 4% 368 RESTORECSVCL7 
IGC0003C, /% 2656 I0 HALT 
IGCOO04F, 7% 3000 TTIMER 
IGC0004G, 4% 3000 STIMER 
ISTAPC61, 7% ACF/VTAM 
ISTAPC62, 7% ACF/VTAM 
ISTAPC63, /% ACF/VTAM 
ISTAPC64, 7% ACF/VTAM 
ISTAPC66, 7% ACF/VTAM 
ISTAPC67, “*% ACF/VTAM 
ISTAPC83, /¥*% ACF/VTAM 

 ISTAPC64, 7% ACF/VTAM 
ISTRACCA, 7% ACF/VTAM 
ISTRACIO, 7% ACF/VTAM 
ISTRACTB, 7*% ACF/VTAM 
ISTRAMTR, 7% ACF/VTAM 
ICHRRCDE, /*% RACF REL. 3 
ICHRFCOO0, 7% RACF REL. 3 
ICHRGLOO, /7¥®% RACF REL. 3 
ICHRGLOL, /¥*® RACF REL. 3 
ICHRGLO3 7% RACF REL. 3 


7 ADD NAME=IEAAPFPS,LEVEL=00,S0URCE=0,LIST=ALL 
IMS.RESLIB USRLB2, 

IMS.PGMLIB USRLB2, 

SYSL.VTAMLIB IPOR21, 

SYSL.NCPLIB USRLB2, 

SYSL.LINKLIB2 USRLBI, 

SYS2.LINKLIB USRLBI, 

SYSL.OLTLIB USRLBI, 

SYS1.CDSLIB USRLBI, 

LAST. ENTRY DUMMY 
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NAME=LNKLSTPS,LEVEL=00,SOURCE=0,LIST=ALL 


7 ADD 

SYS1.LINKLIB,SYS1.TSOLIB, TSO PROGRAM PRODUCTS XXXXXXXXX 
SYSL.CMDLIB, TSO COMMAND LIB XXXXXXXXXXXXXX 
SYSI.LINKLIB2, USER UTILITIES XXXXXXXXXXX 
IMS.RESLIB, IMS LIBRARY XXXXXXXXXXXXXXXXXX 
SYS1.TCAMLIB, TCAM PROGRAMS XXXXXXXXXXXXXXXX 
NCP6.SSPLIB, NCP6 UTILITIES XXXXXXXXXXXXXXXX 
SYS2.LINKLIB, USER LINK LIB XXXXXXXXXXXXXXXX 
SYS1.PPLINK, P. P. LOAD LIB XXXXXXXXXXXXXXX 
SYS1.COBLIB, COBOL LIBRARY XXXXXXXXXXXXXXXX 
SSS4.LINKLIB, PVS AND SSS PROGRAMS XXXXXXXXX 
IPO21.LINKLIB IPO PROGRAMS XXXXXXXXXXXXXXXXX 

.4 ADD  NAME=VATLSTPS ~ 

USRLB1,1,0,3330-1 ,N LIBRARY PACK 

USRLB2,1,0,3330-1 ,N LIBRARY PACK 

DLIB21,1,2,3330 »N MVS DLIB FOR IPO21 

IPOR21,1,2,3330 »N IPO REL. 2.1 SYSRES 

IPOJ21,1,2,3330 »N . IPO REL. 2.1 CATALOG SPOOL PAGING 

NCPLIB,1,0,3340 »N NCP6 LIBRARY 

./ ADD NAME=TSOKEYPS 

USERMAX=30, x 

RECONLIM=10, a 

BUFRSIZE=512, x 


SCRSIZE=1920. 


USED FOR 3277'S ONLY 


NOTE- Information for preparing the OS/MVS system ubaieaaias 1s found in 
OS/MVS Sysgen Reference (6026-3792) : | 
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OS/MVS JES2 PARAMETER DEFINITIONSCVTAM OR ACF/VTAM) 


.f ADD NAME=SNAPARM 


Xo ee en nn ee nn en ee ee ee ee ee ee % 
JES2PARM ¥ 
Xoo + ee ee ee = x 
* SU 25 JES 4.1 * 


HEHE HEH HEHE KE HE HE DE HE IE SEE IE HE HE HK HE DE EK DE DE HE HE DE DE IE FE HE IE IE DE HK DE SE HE NE DE DK HE HE EE DE OE IE DE IK EK HE HE EE HE DE EE HE EK HEH HH HK 
HE HE HE HE HEHE HE HE HE HE HE DEE HE KE DE KE DE DE DE HE KE DEE DE DE IE HE HE HE EE SEE HE HE HE EE DEE EE EK EK EE EE EEK HE HK HH HK HK KK KKK 


x ¥ 
* RJE RELATED PARAMETERS x 
% * 
LOGONI APPLID=JES2 APPL ID TO VTAM x 
&NUMLNES=9 MAX NUMBER OF RJE LINES INCLUDING SNA LINES * 
&NUMRJE=110 MAX NUMBER OF RJE DEFINITIONS ALLOWED * 
&NUMTPBF=20 NUMBER OF TP BUFFERS GENERATED FOR RJES * 
&TPBFSIZ=800 TP BUFFER SIZE * 
&MAXSESS=25 MAX NUMBER OF VTAM SESSIONS=LINES AT 5 LU EAC 
&WAITIME=15 © 15 SECONDS FOR RMT CMDCFROM 1 DEFAULT) % 
COMPACT=40,15,A,C,D,E,H,I,L»,N,O,R,S,T,U,40,0, HRS15* C 
B,F,G,J,K,M,P,Q,V,W,X,Y,2,1,2,3 HRS16X 
COMPACT=41,16,0,1,2,3,4,;5,6,7,8,9,A4,B,C,D,E,F HRS16% 
&NUMTPBF=8 NUMBER OF BUFFERS GENERATED FOR RJE x 


&TPIDCT=66 NUMBER OF LINES ON HEADER PAGE REMOTE PRINTR* 

LINEL UNIT=SNA | ¥ 

LINE2 UNIT=SNA * 

LINES UNIT=SNA X 

LINE4 UNIT=SNA ¥ 

LINES UNIT=SNA % 

LINE6 UNIT=SNA x 

KRRKKXKXNRKNKX RMTL IS A 3777 7 

RMTL LUTYPE1,BUFSIZE=512,COMP,CMPCT,NUMPR=1, 
NUMRD=1,SETUPMSG 

R1.PR1 PRWIDTH=132,FCBLOAD 

R1.RDI PUDEST=1,PULCL 

RHXKXKKKNXX RMT2 IS A 3777 

RMT2 LUTYPE]1,BUFSIZE=512,COMP,CMPCT,NUMPR=1,LUNAME=LU3777R, 
NUMRD=1,SETUPMSG 

R2.PR1 PRWIDTH=132,FCBLOAD 

R2.RD1 PUDEST=1,PULCL 

RXRXXKXKXNXXH RMTIO is a 3790 

RMT90 LUTYPE1,BUFSIZE=256, COMP, CMPCT,CONSOLE,NUMPR=3, Cc 
SETUPHDR | 

R90.PR1L DRAIN, PRWIDTH=120 

R9YO.PR2 DRAIN,CLASS=X 

R90.PR3 PRWIDTH=132 

Xt+t+t+++ RMT95 = ID ASSIGNED TO 3776 


K K K MK 


K K KK K 
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RMT95 LUTYPEL, BUFSIZE=256,COMP,NUMPR=1, ce * | C 
SETUPMSG 
R95.PR1 PRWIDTH=132,FCBLOAD 


RMT LINE DEFAULTS - CODEA,LOWSPEED, IFACEA,ADISCON, EBCDIC,HDUPLEX | 


RMT NUM DEFAULTS BLOCKED, NOMRF, NOTRANSP, HARDWARE, NOTABS,NUMPR=1, 
NUMRD=1,NUMPU=0, VARIABLE, NOBUFEX, NOABUFEX, 


NOCOMP ,NOCON, DISCINTV=0,PASSWORD=, LINE= 


OPERATOR, CLASS=AJ,START,NOFCBLOD,SEP,SUSPEND, 


RMT PRT DEFAULTS 
4 PRWIDTH=120,FORMS=STD.,UCS=, FCB= 


RMT PUN DEFAULTS OPERATOR, CLASS=BK,START,SEP,SUSPEND, FORMS=STD. 


RMT RDR DEFAULTS CLASS=A,MSGCLASS=A,START,NOHOLD,PRDEST=, 


PRIOLIM=15,PRIOINC=,PUDEST= 


K KK KK KK KK K OK OK K OK OK OK 


OS/VS START PARAMETER DEFINITION CVTAM AND ACF/VTAM) 


-% ADD NAME=ATCSTROO,LEVEL=00,SOURCE=0,LIST=ALL 

PEP SPE LE SESS L SSS ELSE PETS S EPSPS SESE PEPE S ESE SS SESS SSS SS SSE PS EPS ESS SS ES ES SS 
% 7 BS 
* MINIMUM STARTUP - SHOULD BE USED FOR OS/VS VTAM AND ACF/VTAM * 
5 * 
HE 3 3 HE 3 HE DE HE HE DE DE HE DE DE HE DE HEE HE DE DK ED HE DE DK IE DE DE DE DDE DE DK IE DE DK HE DE DK HE DE DE 3E DE DE DE DE DE DE IE DE DK HE DE DK DE DE DK DE DE DK IE DE IE OE OK EK EK 
TRACE, TYPE=SMS, ID=VTAMBUF, X 
MAXSUBA=31, X 
SSCPID=01, x 
NETSOL=NO 
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OS/MVS SAMPLES 
OS/MVS VTAM START PARAMETER DEFINITION CTEST) 


af ADD NAME=ATCSTRPS,LEVEL=00,S0URCE=0,LIST=ALL 
HE HEE HEHEHE DE DE DE DE HEE DE DE DE DK DE DE HE HE EE DED DE DK HE DE DE DE DE DK HK EE DE DE DEE DEE HK EDC DE EK HEE DE DEE HE HE HE EE HHH KKH K 
% 


ATCSTROO IS REQUIRED 


® 
x | 
x VTAM START PARAMETERS --- DEFAULT VALUES 

x NOTE: THE IOBUF (BSZ) PARAMETER MUST EQUAL THE UNITSZ VALUE 
bs IN THE NCP HOST MACRO DEFINITION. THE FORMAT OF THE 

% BUFFER POOL START PARAMETERS IS EITHER 

% XXBUF=CBNO,BSZ,BTHZ) AS INDICATED BELOW. 

x 


XK K KK KK K K K 


DE HE HE HIE HEE HEE HE HE HE EEE HE IE EE NE DEE IE HEE DE HE DE SE SE DE HE DE DE HE DE DE HE DE DE HE DE HE DE HE SK DE DE DE SE DE DE SE DE HE DE DE DE HE DE HE DE DE EE HEE HE KEE 
MAXSJBA=31, 
NOPROMPT, 
CONFIG=PS, 
SSCPID=-01, 
NETSOL=NO, 
SFBUF=(271,,271), 
LFBUF=(40,,32), 
LPBUF=(52,,32), 
NPBUF=(153,,145)> 
CRPLBUF=(171,,162), 
IOBUF=(102,156,80), 
APBUF=(154,,146), 
SPBUF=(€15,,15), 
UECBUF=(269,,256), 
WPBUF=€132,,132), 
PPBUF=(135,156,123) 
Be ENDUP 

7¥ 

4/4 


Mm KKK KK KK OK KR MK KK OK 


NOTE- Details for coding and filing start parameters are found in the 
OS/MVS System Programming Library: VTAM (€GC28-0688). 
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OS/MVS SAMPLES 
OS/MVS ACE/VTAM START PARAMETER DEFINITION (TEST) 


ee ADD NAME=ATCSTRAC, LEVEL=00,SQOURCE=0,LIST=ALL 
33H 33H IE 3 II 
ATCSTROO IS REQUIRED OR THIS DEFINITION CAN REPLACE IT. 

x NOTE: THE IOBUF CBUFSIZE) PARAMETER MUST EQUAL THE UNITSZ VALUE 
X IN THE NCP HOST MACRO DEFINITION. THE FORMAT OF THE 

x BUFFER POOL START PARAMETERS IS EITHER | 

X XXBUF=C(BASENO, BUFSIZE, SLOWPT,XPANNO,XPANPT) 

¥ OR XXBUF=VBSZ AS INDICATED BELOW. 
* 
* 
¥% 


*K 


XPANNO OF 1 WILL CAUSE ACF/VTAM TO ACQUIRE 1 PAGE OF 
BUFFERS SINCE THEY ARE ALWAYS ACQUIRED IN PAGE 
INCREMENTS. 
HE DE HE HE DE IE HE HE DE IE HE HE DE DEH HEE HEE DEE HK HE DEE HE HE EE HE HEE HE HE EE HEE HE IE HE HE HE EE IK HE EE HE HK HEE HE EEE HE EE EE EEK HK HEN 
TRACE, TYPE=SMS, ID=VTAMBUF, 
TNSTAT,CNSL,TIME=10, 
MAXSUBA=31,NOPROMPT,CONFIG=AC,SSCPID=01, 
HOSTSA=13;, 
MAXAPPL=50, 
VTAMEAS=150, 
NETSOL=NO, 
SFBUF=(60,,2,,01,3), **%* XPANNO OF 1 WILL CAUSE ACF/VTAM TO ACQUIRE 
LFBUF=(37,,2,,01,3), 1 PAGE OF BUFFERS SINCE THEY ARE ALWAYS 
LPBUF=(32,,1,,01,2), ACQUIRED IN PAGE INCREMENTS xx 
NPSUF=(023,,2,,01,3), 
CRPLBUF=(40,,2,,01,3), 
LOBUF=(60,152,4,,01,26), 
NOTE - The difference between SLOWPT and XPANPT must be greater than 
the largest MAXBFRU defined in any NCP or Local definition. 
APBUF=(66,,2,,01,3), 
SPBUF=(66,,2,,01,3, 


K K K K K K K OK OK 


mM mK mK KK KK OK OK OK OK OK 


x x 


NOTE: For Networks with greater than 100 BSC 3277's, 

expansion of SPBUF is not recommended. BASENO must be larger 

that the number of BASIC sessions if no expansion. 
or SPBUF=(100,,10), | 3 X 
UECBUF=(39,,2,,01,3), , X 
WPBUF=(27,,2,,01,3), Xx 
PPBUF=(29,152,2,,01,3) _ 
.f - ENDUP 


NOTE- Details for coding and filing start parameters are found in the 
ACF/VTAM System Programmers Guide: VTAM ($C38-0258). 
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OS/MVS SAMPLES 


OS/MVS VTAM APPLICATION DEFINITION EXAMPLE 


-f ADD NAME=APPCONO1,LEVEL=00,SOURCE=0,LIST=ALL 

af NUMBER NEW1=10,INCR=10 

DE HE HE HEHE HE HEE HE DE DE EE IE HE EK DE DE EK DE KE DE DE DE EE HE HE DE KE SE DE DE SEE DE SE DE SE SE DE SE DE HE DE DE DE DE DE DE IE DE DE EE DE DE EE HE DE DE DK DE DE NE DE DEE 
% % 
* APPLICATION PROGRAM DEFINITION FOR VTAM x 
% WHERE THE OPERANDS AVAILABLE ARE: x 
x PRTCT=PASSWORD, PASSWORD MUST ALSO BE DEFINED IN ¥ 
% APPLICATION PROGRAM "ACB*. x 
BUFFACT=N[1, APPLIES ONLY TO BASIC NEWE. 
x AUTH=CACQ|NOACQ, ALLOWS APPLICATION PROGRAM TO USE x 
x THE OPNDST MACRO WITH THE % 
x ACQUIRE OPTION. x 
¥ BLOCK|NOBLOCK, NOT USED WITH SDLC OR 3270. X 
X PASS|NOPASS, ALLOWS USE OF CLSDST MACRO x 
% WITH THE PASS OPTION. % 
x TCAM) ALLOWS PATH TO TCAM 

% % 


HEE DE HE HE HE HE DE HE HE DE DE DK HE DE DE DE HE HE DE DE I HE DE DE DE DHE DE DE DE DE HE DE DE DHE DE DE DE HK DEH DK HE DE DE DE DE I DE HE DE DE DE IE HE DE DE DK HE IE DE DEE KEK 
SAMP] APPL AUTH=CACQ) 

DBDCCICS APPL AUTH=CACQ) 

BATCH APPL AUTH=CACQ) 

INQ3790 APPL AUTH=CNOACQ) 

INQALL APPL PRTCT=OKAYOKAY, AUTH=CACQ) 

HOSTPGM1 APPL AUTH=CNOACQ) 

INQ APPL AUTH=CACQ, BLOCK) 

TESTI APPL AUTH=CACQ, PPO) 

BASIC2 APPL AUTH=CACQ,PASS,SP0,BLOCK) 

IEDQTCAM APPL AUTH=CACQ, TCAM, BLOCK) , PRTCT=PASSWORD 


TCAM APPL AUTH=CACQ, TCAM, BLOCK) ,PRICT=PASSITON 
SYSSS5 APPL AUTH=CACQ) 

7 ENDUP 

7% 


NOTE- Defining and filing application parameters is described in 
Defining VTAM Application Programs of the OS/MVS Systems Programming 
Library: VTAM(GC28-0688). 
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OS/MVS SAMPLES 


OS/MVS ACF/VTAM APPLICATION DEFINITION EXAMPLE 


.f ADD NAME=APPCONAC | 
HEHE HEHE HE EEE HE HE DE HE HK KH HK DHE HE DK HEHE HK 3 HE HK DE HE DK 3 HE DK DE HC IK DHE HE DK DE HE DE DE DEO 3 IE I DE IE I 3 DE DED DE HE DK DE DEO IK 
3 | | fn | aad 
* APPLICATION PROGRAM DEFINITION FOR VTAM % 
S WHERE THE OPERANDS AVAILABLE ARE: x 
x PRTCT=PASSWORD, PASSWORD MUST ALSO BE DEFINED IN % 
5S noe | APPLICATION PROGRAM 'ACB’. | % 
% BUFFACT=N[1, APPLIES ONLY TO BASIC SESSIONS. x 
x AUTH=CACQ|NOACQ, ALLOWS APPLICATION PROGRAM TO USE x 
x THE OPNDST MACRO WITH THE x 
x ACQUIRE OPTION. | | % 
—& BLOCK |NOBLOCK, NOT USED WITH SDLC OR 3270. x 
x PASS|NOPASS, © ALLOWS USE OF CLSDST MACRO x 
x WITH THE PASS OPTION. x 
x TCAM) ALLOWS PATH TO TCAM 
& | | 7 4 
HEHEHE HEHEHE HE HEHE HEHE DE HE IE HEHEHE HEHE HEI IE HEHEHE HE HEHE DE I IE HE DED DE HE DE DE DE DE DE HEE DK HEE EEK HK HEHE EK KKH 
IMS APPL AUTH=ACQ | | | | 


VAPPL APPL AUTH=CACQ,PPO) 
SYSSSS APPL AUTH=ACQ 
BTS3770 APPL AUTH=ACQ 
DSPRINT APPL AUTH=ACQ 
IKJACCNT APPL AUTH=ACQ 


JES2 APPL AUTH=ACQ 

VTAMWHO APPL 

7 ADD NAME=TSOAPAC, LEVEL=00,SOURCE=0,LIST=ALL 

7 NUMBER NEW1L=10,INCR=10 

TSO APPL AUTH=CNOBLOCK,PASS,NOPO,TSO,NVPACE),EAS=10 


TSO0001 APPL AUTH=CNOBLOCK,PASS,NOPO,TSO,NVPACE),EAS=1 
TSO0002 APPL AUTH=CNOBLOCK,PASS,NOPO,TSO,NVPACE),EAS=1 
TSO0003 APPL AUTH=CNOBLOCK,PASS,NOPO,TSO,NVPACE), EAS=1 
TS0000%4 APPL AUTH=CNOBLOCK,PASS,NOPO,TSO,NVPACE),EAS=1 
TSO0005 APPL AUTH=CNOBLOCK,PASS,NOPO,TSO,NVPACE), EAS=1 
TSO00006 APPL AUTH=CNOBLOCK,PASS,NOPO,TSO,NVPACE),EAS=1 
TSO0007 APPL AUTH=CNOBLOCK,PASS,NOPO,TSO,NVPACE),EAS=1 
TS00008 APPL AUTH=CNOBLOCK,PASS,NOPO,TSO,NVPACE),EAS=1 
TS00009 APPL AUTH=C(NOBLOCK,PASS,NOPO,TSO,NVPACE),EAS=1 
TSO0010 APPL AUTH=(NOBLOCK,PASS,NOPO,TSO,NVPACE),EAS=1 
ff ENDUP 

1% 


NOTE- Defining and filing application psrameters is described in 
Defining VTAM Application Programs of the ACF/VTAM Systems Programmers 
Guide: ($C38-0258). 
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OS/MVS SAMPLES 


OS/MVS NCP DEFINITION EXAMPLE 


af ADD NAME=NCPRAL,LEVEL=00,SOURCE=0,LIST=ALL 
v7 NUMBER NEW1=10,INCR=10 

¥ | % 
x SOURCE FOR NCP4.1 OS/MVS VTAM 7 % 
x % 
HEHE HK HK HK HK HH HEHE HK HE KE HE HK HE HEH HE HE HE HE HE HE HH HE HE HK HE EK HK EH KH HE HE HE EK EE EE EE HE HE HH HH HK KR RHRK 
a ENDUP 

7% 


NOTE- The OS/MVS System Programming Library: VTAM and the NCP/VTAM 
generation guide are required. The HOST macro definition must be 
consistant with the VTAM start parameters. 


The source from the NCP generation should be used here after removing 
the essembler control cards. When testing the NCP the first time, all 
the PU's should contain the VITAM parameter "ISTATUS=INACTIVE'. After 
loading the NCP they should be varied ‘active’ individually. After a PU 
and it's resources sre operational, the member can be updated to change 
the ISTATUS to ‘ACTIVE’. 
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‘OS/MVS SAMPLES 


OS/MVS VTAM CONFIGURATION DEFINITION 


wv, ADD NAME=ATCCONOO,LEVEL=00,SOURCE=0,LIST=ALL 

3 9636 HE DE HE HEE HEE HE DE HED HEI HE HEH HED HEI HED HE DE HED HE 9 DH 9 9 3 9 9 0 
¥  & 
% START-UP CONFIGURATION, NO NCP | | x 
¥ ¥ 
3 3 9 HEE HE DK DE DE HE HED DK DE DEE HE DE DE DK DE DEE DE DK DE DE ENE DK DK DE DE DE DE NK 3 3E EK DE DE DE IE DK DE BE OE DE DE DE BE DE DE DE DE DE DE DE EK DE DE DE DE DE 3 DEE KK 
APPCONO],LOCCONO] | 

i, ADD LIST=ALL,SSI=20001103,NAME=ATCCONPS 

~ APPCON01,LOCCONO1,NCPRAL 

.7 ~~. ENDUP 
FR 

/ 7 


NOTE- If 00 is activated, it will be necessary to vary the NCP ‘active’ 
via the operator. To autoload the NCP, LIST=RA should be specified at 
VTAM start time. 


OS/MVS ACF/VTAM CONFIGURATION DEFINITION 


/ ADD NAME= ATCCONOO, LEVEL=00,SOURCE=0,LIST=ALL 

HE DE 3 HE HE DE DE HE DE DE HE DE DE DE DE DDE DE DE DE DE DE DE DE DE DE DE DE DE DEE DE DE HE DE DK HEE DE DE DE DE DE IE DE DE DK IC DE DK IE DE DK DE DEKE DEE EE KH 
x ® 
* START-UP CONFIGURATION, NO NCP * 
x x 


RAE RANE REA FARA E REE ARE A RENRNARK AMARA LAE ENAA EA AMMA AXE MERA REMNAAE 
LOC3272,TSOAPAC 


ty i ADD NAME=ATCCONAC 
~£L0C3272,SWITCHAC,NCPACF, APPCONAC, TSOAPAC 
7 ENDUP 
7% 
47 
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OS/MVS SAMPLES 


OS/MVS EXAMPLE OF LOGON TABLE GENERATION 


/7LOGASM JOB "LOGTAB ASSEMBLY',MSGLEVEL=1,REGION=200K 
//STEPL EXEC ASMFCL 
7/&SM.SYSPUNCH DD DUMMY 
//ASM.SYSIN DD & 
Source deck 
//LKED.SYSLMOD DD DSN=SYSI1.LPALIBCTable Name),DISP=SHR 


NOTE- The interpret table is required in order to allow non-SDLC 
terminals to ‘logon’ to application programs via the Network Solicitor. 
Termtnal-Initiated Logons in OS/MVS System Programmers Library: VTAM 
describes the generation of the interpret table. 


OS/MVS MODETAB ASSEMBLY 


//MODETAB JOB 'MODETAB ASSEMBLY’',MSGLEVEL=1,CLASS=C 
//STEP1 EXEC ASMFCL 

//4&SM.SYSPUNCH DD DUMMY 

//7ASM.SYSIN DD X 

Source Deck 

//LKED.SYSLMOD DD DSN=SYS1.LPALIBCModetab Name),DISP=SHR 
/* 

7% 


NOTE- This modetab 1s a subset of the IBM supplied Logon Mode Table. 
Adding it this way simplifies operator logon from the 3270 SDLC unit. 
Terminal-Initiated Logons in OS/MVS System Programmers Library: VTAM 
Chapter 4 describes Logon Mode Tables. If the terminal is to be acquired 
by an application, this modetab is required. 
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OS/MVS EXAMPLE OF START PROCEDURE 


START PROCEDURE 


FOR VTAM 


ecremnerenErE «=§- SERRE CORE 


af ADD LIST=ALL,NAME=NET,LEVEL=01,SOURCE=0 
A NUMBER NEW1=10,INCR=10 
S/NAET EXEC 


PGM=ISTINMO1,REGION=500K 


SYSOUT=A Used when Z NET,CANCEL executed. 


//NTAMLIB DD DSN=SYS1.VTAMLIB,DISP=SHR 
//NTAMLST DD DSN=SYS1.VTAMLST, DISP=NEW 
//NTAMOBJ DD DSN=SYS1.VTAMOBJ,DISP=SHR 
//TNITEST DD DSN=SYS1.LINKLIB,DISP=SHR 
//OLTCDSDD DD DSN=OLTLIB,DISP=SHR 

J/SYSMSYM DD DSN=CDSLIB,DISP=SHR 

//NCPLOAD ODD DSN=SYS1.NCPLOAD, DISP=SHR 
//NCPDUMP DD DSN=NCPDUMP, DISP=NEW 
//SYSABEND DD SYSOUT=A 

MY ENDUP 

-sp 2 

-uc Start Procedure for ACF/VTAM 

-sp 2 

at ADD LIST=ALL,NAME=NET,LEVEL=01,S0URCE=0 
Ye NUMBER NEW1=10,INCR=10 

//NET EXEC PGM=ISTINMO1,REGION=1536K,DPRTY=€15,15),PERFORM=8 
//NTAMLIB DD DSN=SYS1.VTAMLIB,DISP=SHR 
J/NTAMLST DD DSN=VTAM.LIST.SOURCE, DISP=SHR 
//NCPLIB DD DSN=SYS2.NCPLIB,DISP=SHR 
//NTAMOBJ DD DSN=SYS1.VTAMOBJ,DISP=SHR 
//SCPDUMP DD DSN=SYS1.NCPDUMP,DISP=SHR 
//OLTCDSDD DD DSN=SYS1.OLTLIB,DISP=SHR 
4/SYMSYM DD DSN=SYS1.CDSLIB,DISP=SHR 
4/SYSUDUMP DD 

//INITEST DD DSN=NCP6.SSPLIB,DISP=SHR 

./ ENDUP 

// 


NOTE- The DD cards for data sets OLTLIB and CDSLIB should be omitted 


unless the Customer 


can be installed without these data sets but 
before TOLTEP can be used. 
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Engineer has prepared these data 


sets. The system 


be installed 
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OS/VS SAMPLES CCOMMON CODE) 


5.5 * OS/VS SAMPLES CCOMMON CODE) 


The samples contained here are for either sa VSI] or VS2 System. 
REFERENCES 


IBM 3704 And 3705 Communications Controllers 
Network Control Program/VS Generation And Utilities 
Guide And Reference Manual (for OS/VS And DOS/VS 
VTAM Users) 

IBM 3705 Advanced Communications Function for 
Network Control Program/VS Generation And Utilities 
Guide And Reference Manual 


OS/VS1 Service Aids 

OS/VS1 Access Methods Services 

OS/VS1 VTAM System Programmer's Guide 
OS/Vs5s1 JCL Reference 

OS/VS VTAM Reference Summary 


ACF/VTAM System Programmers Guide 
ACF/VTAM Installation Guide 
ACF/VTAM Reference Summary 


OS/VS2 SVS VTAM System Programmer's Guide 
OS/VS2 MVS Utilities 

OS/VS2 System Programming Library: Service Aids 
OsS/VS2 JCL 


OS/VS TCAM System Programmer's Guide 
OS/VS TCAM Installation and Migration Guide 
OS/VS TCAM Program Reference Summary 
ACF/TCAM System Programmer's Guide 

ACF/TCAM Installation and Migration Guide 
ACF/TCAM Program Reference Summary 
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6030-3008 


SC30-3116 


GC28-0665 
GC26-3840 
GC27-6996 
GT28-0618 
GX27-0034 


$C38-0258 


5038-0269 
SX27-3021 


GC27-0049 
GC26-3902 
GC28-0674 
GC28-0692 


GC30-2051 
GC30-3039 
GY30-1024 
$C30-3117 
$C30-3121 
LY30-3037 
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OS/VS SAMPLES CCOMMON CODE) 
VTAM FILE ALLOCATION SAMPLE FOR OS/VS1 


/7ALLOC JOB MSGLEVEL=(1,1) 

77‘&LLOC EXEC PGM=IEFBRI4 

11% THIS STEP WILL ALLOCATE THE NECESSARY VTAM DATA SETS. 

4/7DDL DD UNIT=SYSDA,VOL=SER=SNA001,DISP=C,CATLG),SPACE=(CYL,(5,1,10)), 
ff DCB=C(LRECL=80,RECFM=FB,BLKSIZE=800),DSN=SYS1.VTAMLST 

//O0D2 DD UNIT=SYSDA,VOL=SER=SNA001,DISP=(€,CATLG),SPACE=(CYL,(2,1,10)), 
/f DCB=CLRECL=3152,RECFM=F,BLKSIZE=3152),DSN=SYS1.VTAMOBJ 

/7DD3 DD UNIT=SYSDA,VOL=SER=SNA001,DISP=C€,CATLG),SPACE=(CYL,(€1)), 

// DSN=NCPDUMP 


VSAM DATA SET ALLOCATION FOR VTAM 


Z/NSAMCAT JOB CLASS=A 
// EXEC PGM=IDCAMS 
//TARGTVOL DD DISP=OLD, VOL=SER=SNA001,UNIT=3330,DISP=OLD 
//SYSPRINT DD SYSOUT=A 
//SYSIN DD * 
DEFINE UCATCNAMECUSRVCAT) FILECTARGTVOL) VOL(SNA0O1) CYL(2,1) - 
T0©99999)) 
7% 
//VSAMALC JOB CLASS=a 
//JOBCAT DD DISP=OLD,DSN=USRVCAT 
¢/ EXEC PGM=IDCAmS | 
//FSPACEL DD DISP=OLD,UNIT=3330,VOL=SER=SNA001 
//SYSPRINT DD SYSOQUT=A 
//SYSIN DD x 
DEFINE SPACECFILECFSPACEL) VOLCSNAOO1) CYL (50,5)) 
DEFINE CLUSTER (NAMECLRNCKPT) - 
VOL(SNAOO1) - 
KEYS(2,0) - 
TRACKS(2) - 
RECSZ(10,10) - 
SHR(4,4) ~ 
FREESPACE(1)) 
DEFINE CLUSTER (NAMECNCPO01) - 
KEYS(4,0) - 
VOLC(SNAQ01) - 
TRACKS(2) - 
FSPC(1) - 
SHR(4,4) - 
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RECSZ(24,24)) 

DEFINE CLUSTER CNAMECLOCOOL) - 
KEYS(4,0) - 
VOLCSNAO0OL)D - 
TRACKS(2) - 
FSPC(1) - 
SHR(O4,494) - 
RECS5Z(24,24)) 

DEFINE CLUSTER CNAMECSWTOO1) - 
KEYS(4,0) - 
VOLCSNAQOL) - 
TRACKS(2) - 
FSPCC1) =~ 
SHRC4,4) - 
RECSZ(024,24)) 

7% 


NOTES- Apendix G of the OS/VS1 VTAM System Programmer's Guide should be 
referenced. CVTAM Level 2 only). 
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OS/VS SAMPLES CCOMMON CODE) 
NCP FILE ALLOCATION AND INSTALLATION SAMPLE FOR OS/VS (2314) 
The following sample is for NCP/VS Release 5.0. 


/7ALLOC JOB MSGLEVEL=(1,1) 
/7ALLOC EXEC PGM=IEFBRI4¢ 
17% THIS STEP WILL ALLOCATE THE NECESSARY NCP DATA SETS. 
//0D1 DD UNIT=2314,VOL=SER=NCPR50,DISP=(,CATLG),SPACE=(CYL, (37,4, nea? 
// DSN=SYS1.GEN3705, DOB=C(LRECL=80,RECFM=FB,BLKSIZE=3520) 

 4/0D2 DD UNIT=2314,VOL=SER=NCPR50,DISP=(,CATLG),SPACE=CCYL, (64,5,36)), 
77 DSN=SYS1.MAC3705,DCB=C(LRECL=80,RECFM=FB,BLKSIZE=3520) 
7/OD3 DD UNIT=2314,VOL=SER=NCPR50,DISP=(€,CATLG),SPACE=C(CYL,(8,2,30)), 
47 DCB=CLRECL=80,RECFM=FB,BLKSIZE=400) ,DSN=SYS1.0BJ3705 
/70D& DD UNIT=2314,VOL=SER=NCPR50,DISP=(,CATLG),SPACE=C(CYL,(2,1,10)), 
// DCB=C(LRECL=80,RECFM=FB,BLKSIZE=400),DSN=SYS1.NCPOBJ 
7/O0D5 DD UNIT=2314,VOL=SER=NCPR50,DISP=(€,CATLG) ,SPACE=C(CYL,(5,2,10)), 
// DSN=SYS1.NCPLOADI 
4735TA EXEC PGM=IEHMOVE 
77% THIS STEP WILL COPY THE DATA FROM THE TAPE TO THE DISK 
//SYSPRINT DD SYSOUT=A 
//SYSUT1 DD UNIT=2314,SPACE=(CYL,(5,5)) 
//TAPEIN DD UNIT=2400,VOL=SER=DISTTP,LABEL=(,NL), 
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),DISP=(OLD,PASS) 
//DISKOUT DD UNIT=2314, VOL=SER=NCPR50, DISP=OLD 
//SYSIN DD * 


SSP COPY PDS=SYS1.SSPLIB,FROM=2400=C(DISTTP,1), X 
TO=2314=NCPR50,FROMDD=TAPEIN 

NCPMAC] COPY PDS=SYS1.GEN3705,FROM=2400=CDISTTP,2), X 
FROMDD=TAPEIN, TO=2314=NCPR50 

NCPMAC2 COPY PDS=SYS1.MAC3705,FROM=2400=C(DISTTP,3), X 
FROMDD=TAPEIN, TO=2314=NCPR50 

NCPOBJ COPY PDS=SYS1.0BJ3705,FROM=2400=C(DISTTP,4), X 


FROMDD=TAPEIN, TO=2314=NCPR50 
7% 


NOTES- This job stream sllocates space for the data sets required for an 
NCP installation and generation. The PDS SYS1.SSPLIB must be copied to 
the SYSI.LINKLIB as noted in the next sample. The storage requirements 
may vary between release levels of NCP/VS. The Program Directories 
shipped with the NCP tape should always be consulted. 
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NCP INSTALLATION CONTINUED, UPDATE LINKLIST 


7 ADD NAME=LNKLSTxx 


SYS1.LINKLIB, SYSTEM LINKLIB XXXXXXXXX 
SYS1.LINKLIB2, USER UTILITIES XXXXXXXXXXX 
IMS .RESLIB, IMS LIBRARY XXXXXXXXXXXXXXXXXX 
SYSL.SSPLIB NCP UTILITIES 


NOTES- This stage is necessary. VTAM expects to find the 370x loader in 
the SYS1L.LINKLIB and VTAM will be unable to load the 3705 if it can not 
find the losder. NCP utilities may be placed in SYS1.LINKLIB. 
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NCP JOB CONTROL FOR STAGE 1 ~- OS/VS 


S/SCRNCPS JOB MSGLEVEL=(C1,1) 
1/7 EXEC PGM=IEHPROGM 
//7SYSPRINT DD SYSOUT=A 
//DD3 DD UNIT=2314,VOL=SER=NCPR50,DISP=OLD 
//SYSIN DD X 
SCRATCH DSNAME=NCPSTG1, VOL=2314=NCPR50,PURGE 
7% 
//STAGEL EXEC PGM=CWAX00,REGION=320K 
//SYSLIB DD DSN=SYS1.GEN3705,DISP=SHR | 
//O0BJ1 DD UNIT=2314,VOL=SER=NCPR50, DISP=C€,CATLG),SPACE=(CYL,(2,1,10)), 
47 DCB=(LRECL=80,RECFM=FB,BLKSIZE=400),DSN=SYS1.NCPOBJ1 
//SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(800,800)),DCB=COPTCD=C) 
¢/7SYSUT]!] DD UNIT=SYSDA, SPACE=(1700,(800,800)),DCB=COPTCD=C) 
//SYSUT3 DD UNIT=SYSDA,SPACE=(1700,(800,800)),DCB=COPTCD=C) 
7/SYSPRINT DD SYSOUT=A 
7/SYSPUNCH DD DSN=NCPSTG1,VOL=SER=NCPR50,DISP=(,KEEP), 
/ UNIT=2314,5PACE=(CYL, (2,1)),DCB=(LRECL=80,RECFM=FB,BLKSIZE=800) 
“/SYSIN DD X 
//SYSIN DD X | 
DE HK HE KEK EE HE HE IE EK SE EK EE HE SE IE DE SEE HE HE DE HE DE DE SK DE HE DE DE HE HE IE HK DE HE SE HK EE HK HK DE HE DK HEE EE EEE EE EE HK KKK KM 
% | x 


b SOURCE FOR NCP3 OS VTAM % 
x x 
HE DE HE DE DE HE DE DE DE DE DE IE DE DE DE NE DK DE DE DE DE DE HE DE DK DE DE DK HE DE DK DE DE DE DE DE DE DK DE DE DE DE HE DE DK DE DE DE DE IE DE DK DEE DE DK IE DE DE DE DE DE DK EE OE EE 
7% 
17 


NOTES- The JCL sample punches the Stage 1 ouput to a8 sequential data 
set. This sample sllows Stage 2 to be started by reading from the file. 
The listing from Stage 1 must be examined for defaults and MNOTES. The 
punched output from this stage should allow an error free NCP 
generation. There may be unresolved EXTRNs in the link edit stage. The 
letter to users, that comes with the NCP installation materials, lists 
these unresolved EXTRNs. Normally these unresolved items can be ignored. 
Unlike DOS/VS, there are no additional steps after the link edit stage. 
The NCP load is ready to be used as soon as the last step is completed. 
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OS/VS SAMPLES CCOMMON CODE) 


OS/VS NCP LOAD SAMPLE 


//LOAD JOB MSGLEVEL=(1,1) 
77% THIS ROUTINE LOADS THE LOCAL 3705 
// EXEC PGM=IFLOADRN 
77SYSPRINT DD SYSOUT=A 
//SYSUTL DD DSN=NCP.NCPSN2,DISP=SHR 
//% NEXT STATEMENT SPECIFIES INITIAL TEST LIBRARY 
//SYSUT3 DD DSN=SYS1.LINKLIB,DISP=SHR 
//CUNAME DD UNIT=O0BF 
//SYSIN DD % 
LOAD LOADMOD=NCPSN2,3705=CUNAME, DIAG=Y8 
7% 
47 


NOTES- Options for this routine are covered in Chapter 7 of the NCP 
Generation manual, GC30-3008. This routine maybe used to check the NCP 
With initial test, prior to loading the 370x using VTAM. If the NCP is 
defined with ‘Automatic Network Shutdown', the NCP will go back to the 
load. state after the ‘"TIMEOUT' value specified in the NCP ‘HOST! 
psrameter hss expired. 


SAMPLE JCL TO DUMP AND PRINT NCP ON OS/VS 


7/DUMP JOB MSGLEVEL=(€1,1) 
4/*% THIS ROUTINE DUMPS AND PRINTS THE LOCAL 3705 STORAGE CONTENTS 
/7 EXEC PGM=IFLREAD 
//SYSPRINT DD SYSOUT=A 
7/7¥* SYSUT1 SPECIFIES THE 3705 ADDRESS 
//SYSUT1 DD UNIT=OBF 
//% SYSUT2 SPECIFIES THE TEMORARY DASD WORK DATA SET 
//SYSUT2 DD UNIT=SYSDA,DISP=NEW, X 
// | SPACE=(512,(513),,CONTIG) ,DCB=(DSORG=DA) 
f4/SYSIN DD x 
DUMP FROMADDR=200,BUF=Y,FORMAT=Y 
1% 
47 


NOTES- Options for this procedure ere covered in Chapter 8 of the NCP 
Generation Manual, G6C30-3008. 
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OS/VS SAMPLES CCOMMON CODE) 


SAMPLE JCL FOR STARTING AND STOPPING VTAM TRACE 


//PROCUP JOB 


// EXEC PGM=IEBUPDTE,PARM=MOD 


"UPDATE PROCLIB’ ,MSGLEVEL=1,REGION=100K 


//SYSPRINT DD SYSOUT=A 


//SYSUT1 DD 
f/SYSUT2 DD 
//SYSIN DBD 


DSNAME=SYS1.PROCLIB,DISP=SHR 
DSNAME=SYS1.PROCLIB,DISP=SHR 
DATA 


-f ADD NAME=GOTRACE,LIST=ALL 
//7TRACE PROC 


47 
A 
4/f 
4f 
47 
4/7 
Af 
47 
47 


47 
// 
4/ 
17 
/7f 
/f 
f7 
4/7 


MODIFY 
MODIFY 
MODIFY 
MODIFY 
MODIFY 
MODIFY 
MODIFY 
MODIFY 


NET, TRACE, TYPE=I0,ID=NCPSN2 
NET, TRACE, TYPE=BUF, ID=NCPSN2 
NET, TRACE, TYPE=I0,ID=CL3790 
NET, TRACE, TYPE=BUF, ID=CL3790 
NET, TRACE, TYPE=I0, ID=INBATCHL 
NET, TRACE, TYPE=BUF,ID=INBATCH1 
NET, TRACE, TYPE=I0, ID=INQDEMO2 
NET, TRACE, TYPE=BUF, ID=INQDEMO2 


VARY NET,ACT,ID=CL3790 

/77STEPL EXEC PGM=IEFBR14 

/7® OPERATOR COMMANDS TO SET UP FOR TRACE 
.4 ADD NAME=NOTRACE,LIST=ALL 

//NOTRACE 


MODIFY 
MODIFY 
MODIFY 
MODIFY 
MODIFY 
MODIFY 
MODIFY 
MODIFY 


PROC 
NET,NOTRACE, TYPE=I0,ID=NCPSN2 
NET,NOTRACE, TYPE=BUF, ID=NCPSN2 
NET,NOTRACE, TYPE=I0,ID=CL3790 
NET,NOTRACE, TYPE=BUF, ID=CL3790 
NET,NOTRACE, TYPE=I0,ID=INBATCHI 
NET,NOTRACE, TYPE=BUF, ID=INBATCHI 
NET,NOTRACE, TYPE=I0,ID=INQDEMO2 
NET,NOTRACE, TYPE=BUF, ID=INQDEMO2 


47% OPERATOR COMMANDS TO STOP VTAM TRACE 
//STEP1 EXEC PGM=IEFBRI14 


4 
7% 


NOTES- This procedure 


ENDUP 


commands. 


Stopped on 
entering the 
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allows an operator to execute 3 


list of operstor 


It reduces operator error and insures that trace is started or 


specified nodes. The same 
commands through the card resder. 
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OS/VS SAMPLES CCOMMON CODE) 


SAMPLE JCL FOR PRINTING TCAM TRACE RECORDS 


//PROCUP JOB ‘UPDATE PROCLIB’,MSGLEVEL=1,REGION=100K 
// EXEC PGM=IEBUPDTE,PARM=MOD 
//SYSPRINT DD SYSOUT=A 

//SYSUTI DD DSNAME=SYS1.PROCLIB,DISP=SHR 
//SYSUT2 DD DSNAME=SYS1.PROCLIB,DISP=SHR 
//7SYSTIN DD DATA 

-4 ADD NAME=TRACES,LIST=ALL 

77PIU EXEC PGM=IEDQXB,PARM=*PIUT' 
7/SYSUTI DD DSN=TCAM. COMNRITE,DISP=O0LD 
//SYSPRINT DD SYSOUT=R,SPACE=CCYL,(5,1)) 
// BUFF EXEC PGM=IEDQXB,PARM="BUFF’* 
4/SYSUTI DD DSN=TCAM.COMWRITE,DISP=OLD 
/7SYSPRINT DD SYSOUT=R,SPACE=C(CYL,(5,1)) 
//LINE EXEC PGM=IEDQXB,PARM="LINT,LINS' 
f/SYSUTI DD DSN=TCAM. COMWRITE, DISP=OLD 
/7SYSPRINT DD SYSOUT=R,SPACE=C(CYL,(5,1)) 
//TOTR EXEC PGM=ITEDQXB,PARM="IOTR" 
7/SYSUTI DD DSN=TCAM.COMWRITE, DISP=OLD 
//SYSPRINT DD SYSOUT=R,SPACE=(CYL,(5,1)) 
//STCB EXEC PGM=IEDQXB,PARM="STCB! 
//SYSUTI DD DSN=TCAM.COMWRITE,DISP=OLD 
7/SYSPRINT DD SYSOUT=R,SPACE=C(CYL,(5,1)) 
-4 ENDUP 

7% 
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OS/VS SAMPLES CCOMMON CODE) 
SAMPLE JCL FOR RUNNING TCAM 


//PROCUP JOB "UPDATE PROCLIB’,MSGLEVEL=1,REGION=100K 

// EXEC PGM=IEBUPDTE,PARM=MO0D 
 “Z/SYSPRINT DD SYSOUT=A 
— Z7SYSUTI DD DSNAME=SYS1.PROCLIB,DISP=SHR 

//SYSUT2 DD DSNAME=SYS1.PROCLIB,DISP=SHR | 

//SYSIN DD DATA 

-f ADD NAME=TCAM,LIST=ALL 

77STR EXEC PGM=IEFBR14 

//REQUEUE DD DSN=TCAM.REQUEUE, DISP= COLD, DELETE) 

AZ/FORMATQ EXEC PGM=IEDQXA | 

/7TEDQDATA DD DSN=TCAM.REQUEUE, DISP= (,CATLO), DCB= KEYLEN= 156, 

4/ ,* VOL=SER=SCLIB1,UNIT=3330-1,SPACE=(CYL,(€5,5),,CONTIG) 

//ACFTCAM EXEC PGM=IEDQTCAM, TIME=1440,DPRTY=(11,10),REGION= nu 
4/STEPLIB DD DSN =SYS2.NCPLIB,DISP=SHR 

/7REQUEUE DD DSN=TCAM.REQUEUVE, DISP=SHR 

//COMWRITE DD DSN=TCAM.COMWRITE,DISP=SHR 

//NCPDUMP DD DSN=TCAM.NCPDUMP,DISP=SHR 

//DDIPL DD DSN=SYS2.NCPLIB,DISP=SHR 


//NCP DD UNIT=619,DCB=IPLTXID= PERO 
7/D0D3270L DD UNIT=4&C8 
47 DD UNIT=46C9 


//QOPCTLI DD QNAME=AOPCTLI 
//QO0PCTLO DD QNAME=AOPCTLO 
//QO0PCTLP DD QNAME=AOPCTLP 
//QSO0FO DD QNAME=ASOFO 
//Q3270I =60DD) 6 QNAME=A32701 
//Q32700 DD QNAME=A32700 
//QDLQI DD QNAME=DLQ 
//QDLQO DD SYSOUT=R 
//SYSUDUMP DD SYSOUT=A,SPACE=(CYL,(€5,1)) 
./ ENDUP 

1% 
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ACF/TCAM SAMPLE 
CHAPTER 6 : ACF/TCAM SAMPLE 


This section contains a sample MCP for ACF/TCAM and the USS table 
defintions for the devices supported in the MCP. 


REFERENCES 
TCAM Migration To NCP and SNA Featuring IBM 3790 GG22-3100 
ACF/TCAM General Information GC30-2050 
ACF/TCAM Concepts and Planning GC30-3049 
ACF/TCAM System Programmer's Guide §$€30-3117 
ACF/TCAM Macro Reference Guide $C30-3118 
ACF/TCAM Application Programmer's Guide $€30-3119 
ACF/TCAM Installation and Migration Guide $€30-3121 
ACF/TCAM MSNF Program Reference Summary Supplement LD21-0003 
ACF/TCAM Program Reference Summary LY30-3037 
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ACF/TCAM SAMPLE 


ACF/TCAM SAMPLE MCP 


TITLE * 


% 


x 


*% ACF/TCAM SYSTEM OPERATION X— 


* 


¥® 


HE HE HK EK EE HE EE EE EE EK KEK KOE KEK RK 


KKK KKK KKK KKK KKK KM HK 


TO 


TO 


TO 


TO 


TO 


START TCAM ENTER: 


S TCAM 


TCAM SAMPLE MCP" 
HE HK HE HK HEHEHE EK HEH IEE IE HEE HK HK HE HK DE KE HE HK EE DEK HE EK HE EK HK HEE EK EEE HE EK DE HK HEHE HE EE HE HEE KEE EK EEK HH 


ACTIVATE AND USE LOCAL 3270'S ENTER: 


FROM THE OS CONSOLE: V 4C8,0ONTP 


STOP TCAM: 


1) FROM THE CONSOLE ENTER: 


OR 


2) FROM A LOGGED ON 3270 ENTER: 
| THEN: 


PRINT THE TRACES ENTER: 


PRINT THE MESSAGE QUEUE ENTER: 


C TCAMC, DUMP) 


CLOSE 
4/7 Z TP, QUICK 


S TRACES 


S PRT 


K K K KK KK KK KK KR KK K KK K K MK K 


BE HE EH HEHEHE HE HK EK HEE HK HE EE EE EK EK DE DK HE EE IE HE KE EK DE DE KE DE OE EE EK OE EK EE EK EEE EH EEK KEK HK KKK 


HE HE SE HEE SE DE IE DE HE IE EK EE IE DE EK HE EE HE KE DE DE DE EE DE ESE DE SE DE DEE DE DE DK DE DE DE DE DE SE DE SE DE SE DE DE DE DE DE DE DE DEK DEE EE EEX 


XK HX 
x 
x 
x 
x INITS (FOR TCAM 
¥ TCAM (FOR TCAM 
* LOGON CTSOID/PASSWORD) 
*® TSO CTSOID/PASSWORD) 
* IMS (FOR VTAM 
* CICS (FOR VTAM 
x 
* TO TERMINATE A SESSION 
x 
* TERMS (FOR TCAM 
% LOGOFF (FOR TSO) 
* TERMI (FOR VTAM 
* TERMC (FOR VTAM 
x 
x 
x 
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SESSIONS) 
SESSIONS) 
CFOR TSO) 
CFOR TSO) 
SESSIONS) 
SESSIONS 3 


THE FOLLOWING COMMANDS MAY BE USED - ENTER: 


SESSIONS) 


SESSIONS) 
SESSIONS) 


TO INITIATE A SESSION THE FOLLOWING COMMANDS MAY BE USED - ENTER: 


ALL FORMATS ARE VALID IN UPPER OR LOWER CASE. 
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K K K KK KK KK KK KK KK K K MK K 


6320-6028 (2/79) 


* 


ACF/TCAM SAMPLE 


MODIFICATIONS TO THE SSCPMH CSEE FURTHER DISCUSSIONS THERE) WILL 


* ENABLE THESE COMMANDS TO BE INTERPERTED FOR THE CORRECT LU AND 
* BIND PARAMETERS. NOTE THAT THE REGULAR INITS AND TERMS FORMATS 


% 


S fTCAMXXXX 


x 

* MESSAGE DEFINITION: 
% 

x TYPE FORMAT 
a 

% 

* I I XXXXXX 

% 

x M  M DEST / CDATA) 
® 

* 0 77 CCMD) 

xX 

* xX xX  CCMD) 

x 

* N NDS X (X 

¥ 

% 

x 

¥% 


IS MODEL NO) 


* MAY STILL BE USED TO OVERRIDE THE DEFAULTS. 


MEANING 


INQUIRY 


MESSAGE SWITCH 


OPERATOR CONTROL 


EXTENDED OPERATOR CONTROL 


NDS TEST MESSAGE FOR ALL MODELS 


SOF OPERATOR COMMANDS 
COUTPUT GOES TO SDLC76P7) 


% 
x 
% 
¥% 
% 


HEH HEH HEH HEH HE HE HE HE HE HE EE HE EE HK HE HE IE HE HEE HE HE KE HE EK EE HK EH EK KK KE HK HK HK KE HK HE HE HE EE EE HE HE EK EE KK EEK EK HK 


K KK K KK K KK KK KR KK KR K K K K 


HE HE HE HEH HE HK HE HE IK EK EK EE HE EK HE HE EE HE EK HE HE EK HE HEE HK HK HE EK EE HK HK HEH EK EH HEHE HK KK KK HK KKK KK KK KKK 


HE HEH HEHE HE HE HE HE HK DE HE EE EE HE KE HEE HEE HEE HEE HE SK HE DE EE HK HE HE EE ESE DE DE DK EK EE SE EK SE IE EK EK EE EE DEK OE EE EEE EEK K 


* x% 


ACF/TCAM: PROGID=IEDQTCAM ACF/NCP: NEWNAME=NCPACFI 


* SYSTEM AS OF X UNITSZ=156 UNITSZ=156 ss 
x 01705779 S MAXSUBA=31 MAXSUBA=31 x 
x SUBAREA=14 SUBAREA=21 X 
HH HHH KH KH KH KK KKK MAXBFEFRU=20 Fad 
x x 
* * 
XTYPE GROUP LINE CLUSTERCPU) TERMCLU3 MESSAGE TYPES 
eS SSS re com ts tren ee me Se Sa Sm cm ey cm a ee nme me a Ae ee ee % 
x % 
* NCP SDLCSV1 SDLCI29 x 
x PU3270V LU3270V0 I,M,0,X,5 oS 
% LU3270V1 * 
x TO x 
x LU3270V7 I,M,0,X,S x 
¥* % 
as SDLCI22 % 
x SDLC3274 SDLCPAOL I,M,0,X,N,S x 
x TO % 
% SDLCPA08 % 
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ACF/TCAM SAMPLE 


x ¥ 
x SDLCI235 x 
X SDLC3276 SDLC76P1 I,M,0,X,N,S x 
% TO % 
% SDLC76P8 x 
% x 
x BSCI25 x 
x BSC3270 BSC32700 I,>M,0,X,N>S x 
% TO I,M,0,X,N,S x 
x BSC32707 & 
¥ ¥ 
Pee secate Sek Shel Ge oe: Sy &. Sib ae Wath a Sng aie eye ce Woe ea eae we are Se See eee Bee Bel eee Soe x 
x ¥* 
* OTHER TCAM LU'S: ITEDQTCAM CDEFAULT MHS3270) X 
x MHS3270 (€3270 BSC,SDLC & LOCAL) I,M,0,X55 x 
x NDSMH (3270 NDS) I,M,0,X,N,S x 
x TSOMH | x 
x % 


DE HE HEE HEH IEE EEE EEE HE IE HE HEE IEE EE EE EE EEK EE EE EK EE KK KE EE EEE KK EE EE EEE EE EEE KEK KK RK 


TCAM CSECT 
EXTRN IEDN25 REQUIRED FOR USER EBCF TRANS TABLE 
INTRO ABEFMT=C(PCB,SIB,PLCB,OPT),APDUMP=NO, APWAS=4024, 
AUTHA=YES,BFRRTN=LO,BRACKET=YES,BTRACE=030,CDRVT=40, 
CIB=10,CKREQS=0, COMWRTIE=YES,CONTROL=//,CPB=30, 
CPINTVL=1800,CPRCDS=2,CROSSRF=0,DISK=YES,DLQ=DLQ, 
DTRACE=(500,POST),ENVIRON=MIXED, 
FEATURE=(C,,,,MIXD3705,MIXDSNA,NETWORK), 
INTVAL=0,LINETYP=BOTH, LNUNITS=300,MAXSUBA=31,MSMAX=70, 
MSMIN=1,MSUNITS=150,0LTEST=0,PASSWRD=0,PLCBNO=15, 
PRIMARY=SYSCON, PROGID=IEDQTCAM, RESTART=0,ROUTE=NO, 
SIBCNT=80,STARTUP=C, SUBAREA=14, THRESH=(255,1,1,1), 
TOPMSG=YES, TRACE=(50,0N),TTRACE=200,UNITSZ=156, 
USEREG=0,VM=YES | | 
LTR 15,15 
BZ AOK BRANCH IF NO ERROR 
ABEND 4095,DUMP _ 
tt. 2.0, 2.0.0.0, 0.0.0 2.2.5.2. 5.5 0.5.2.5. 2.2.5 5.5,5,5.5 5.5.5. 0,0,. 9,0. 5,.0,0,6,5,5,0,5,5,5,0,5,5,5,5,5,5,%,0,0,0,0,5,9,9, 0,0, 0, 0.0.0, 0,855 
DC CYACF/TCAM SNA MCP COMPILED’ | 


KKK KK KK KK OK OK 


DC C* &SYSDATE &SYSTIME* oe | 
HE DHE HE HE DE DE HE EE HEE DE DE DE DK DE EE DE EE 3K DE EE DE DE DEK DE DK SED DK DE DK KK KE EE EE OE DE EEK EE EK EEE KM RK MRK 


AOK OPEN CREQUEUE, CINOUT) 3 OPEN MESSAGE QUEUES DATA SET 
LTR R15,R15 | TEST OPEN RETURN CODE 
BNZ BADOPEN IF OPEN FAILED, BRANCH 
OPEN (CLOC3270,CINOUT,IDLE}) OPEN LOCAL 3270 DCB 
LTR R15,R15 TEST OPEN RETURN CODE 
BNZ BADOPEN 3 IF OPEN FAILED, BRANCH 
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ACF/TCAM SAMPLE 


OPEN CNCPDCB,CINOUT)) OPEN 3705 NCP 

LTR R15,R15 TEST OPEN RETURN CODE 
BNZ BADOPEN IF OPEN FAILED, BRANCH 
ATTACH EP=APPL3270 

ATTACH EP=OPCTL 

ATTACH EP=APPLMDR 


WTO SGAM LO AIP cop cesiee eceres ee ent wicks wee to: ore wees : 

READY GMMSG=GDMRNG READY WITH GOOD MORNING ROUTINE 

CLOSE NCPDCB CLOSE 3705 

CLOSE LOC3270 CLOSE LOCAL 3270 

CLOSE REQUEUE CLOSE MESSAGE QUEUES DATA SET 

L 13,4(€13) RESTORE SAVE AREA POINTER 

RETURN (€14,12),RC=0 RETURN TO CALLER 
BADOPEN ABEND 4094,DUMP AN OPEN MACRO WAS UNSUCCESSFUL 
HEHE HEH HE HK HK HE IEE KE DEK KE EE EE SEE HE EK SE EE SE DE EE EE HE EE HE EE EK IE EE EE EEK EK KEK EE EK KKK KRM KR 
x THIS GOOD MORNING ROUTINE GETS CONTROL AT STARTUP. 
x IT IS EXECUTED ONCE FOR EACH TERMINAL IN THE TERMINAL x 
% TABLE. THE TERMMODE OPTION FIELD IS CHECKED FOR A X'10°. x 
x IF A X'10* IS FOUND A GOOD MORNING MESSAGE IS GENERATED. x 


HE 3 DE DE HE HE HE DE HE HK DEE IE HE HE HE EK HEHE DE EK DE EH HK HK HEHE HEHE HEH KH HEH HE HEH EK HK HK HK HHH HH KKK HH HH HHH 
USING *,RI5 


GDMRNG STM RO,R14,SAVE SAVE REGISTERS AND ESTABLISH 
LA R13,SAVE - ADDRESSABILITY 
BALR R6,0 
USING *,R6 
L R4,4(RL) 
™ 10(R4),X"10! TERMMODE SPECIFY GM MSG ? 
BNO NOGMMSG NO, BRANCH 
LA R15,GDMSG REG 15 IS ADDR OF GM MSG 
RETOS LM RO,R14,0CR13) RESTORE REGISTERS 
BR R14 RETURN TO OS 
NOGMMSG SR R15,R15 CLEAR REG 15 
B RETOS 


GDNSG DC AL1(0138) 
Dc C*°TCAM IS AVAILABLE’ 
DROP R6 
SAVE DC 15F‘'O’ 
HK HH HK HH IK HE EK HE KK HE HE IE KE IKK HK HK HE KEK HK EH KK HE EK HE KK EE EE HE EE IE HE EE EK EE EE EE EE HE EE EEK HEHE 
PCBDL@ PCB MH=MHDLQAP,BUFSIZE=1024¢,BUFIN=2, BUFOUT=2 
PCBOPCTL PCB MH=MHOPCTL,BUFSIZE=256,BUFIN=2,BUFOUT=2 
PCB3270 PCB MH=MH3270AP,BUFSIZE=256,BUFIN=10,BUFOUT=10 
REQUEUE DCB DSORG=TQ,MACRF=(G,P),DDNAME=REQUEUE, OPTCD=R 
NCPDCB DCB DSORG=TR,MACRF=(G,P),DDNAME=NCP 
DUMPDCB DCB DSORG=PS ,MACRF=(WP) , DDNAME=NCPDUMP, BLKSIZE=512,RECFM=F, X 


LRECL=512 
LOC3270 DCB DSORG=TA,MACRF=(G,P),DDNAME=DD3270L,MH=MHS3270,CPRI=S, xX 
PCI=(N,N),BUFIN=1, BUFOUT=2, BUFMAX=2, BUFSIZE=2028, X 


SCT=EBCD, TRANS=IEDN25,INVLIST=(LLST1,,,LLST2) 
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ACF/TCAM SAMPLE 


DE DE HE SE HEE HE DE ENE OE HEE HE EE HE EE EE ENE HE EE DEE SE NE EEE EE HE EK ESE KE DE EE EE DE DE DE EE HE DE IE DE HE DEE EK OE HE DEE OE EE EE 


RO 
RI 
R2 
R3 
R4 
R5 
R6 
R7 
R8 
R9 
R106 
RLS 
R14 
R15 
TITLE ' 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 9 
EQU 1 
EQU 1 
EQU 1 
EQU 1 


CON DUR WN eH © 


TERMINAL TABLE’ 


PSPSPS LSS SS SPSS SSS SS SSE SS SES EE SSS SS SELES SESS SESS SSS ES SS SSS PSST ST ES SES SF 
TERMINAL TABLE 


KK KK KK KK KK KK KK K KK K K 


TERMTYPE X'80' 


X'40' 
X'20' 
X*10° 
X'08! 
X'04" 
X'02' 
X'o1l' 


TERMMODE X'80’" 


X'™40" 
X*20° 
X'10" 
X'08! 
X*04' 
X'02" 
X'ol' 


3270 TERMINAL 


2770/3770 TERMINAL 
2741/3767 TERMINAL 
NDS 3270 TERMINAL 
BSC LINE CONTROL EP MODE 
BSC LINE CONTROL NCP MODE 


S/S; 
S/7S> 


LOCAL SUPPORT 


SDLC LINE CONTROL 


BATCH 
INQUIRY 
MESSAGE SWITCH 


GOOD MORNING MESSAGES REQUIRED 
NO IDLES NEEDED 


SCREEN DEVICE 


ID 
PR 


LES NEEDED 
INTER 


K KK KK K K K KK KK KK KK K K RK 


HEHE 3 DE EE HEE HEHEHE IE HE IE EE HK HK HEE HEE DE OE DE HK HE DE DEE DE HEE DE DE HK DE UE DEE DE DE DK DKK DE HE DE IE DE EK EEE EM NE 
MAXLEN=8,LAST=BSC32707— 


TERMNAME 
PATHSW 
TERMTYPE 
TERMMODE 
ERRCT 
ITEDLMODE 
PRNT3270 
TEDLUNAM 
TEDQFSCR 


TTABLE 
OPTION 
OPTION 
OPTION 
OPTION 
OPTION 
OPTION 
OPTION 
OPTION 
OPTION 


CL8 
XLI 
ALI 


XLI 


XL1 


CL3 


CL38 
CL3 
XL1 


1 


On OU AWN 


9 


TERMINAL NAME FIELD 

OPTION FIELD FOR PATH SWITCH 
TERMINAL TYPE & LINE CONTROL 
TERMINAL AND APPL CHARACTERISTICS 
TRANS ERROR COUNTER CIEDVOFF) 

BIND NAME FOR HOST INITIATED SESSION 
NAME OF 328X FOR 3277 TO PRINT 

DMH FOR HOST INITIATED SESSION 

TSO FULL SCREEN SUPPORT 


HEHEHE HE DE HEHE HE HE HE IE EE HEE EE EEK EE HE EE HE KE EE EEK HEE HE KK HE EE HE KE HK KK HE EE KEK EEK KKK RK HK KKK 
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G320-60238 (2/773) 


ACF/TCAM SAMPLE 


ERRQ TPROCESS PCB=PCB3270,QUEUES=DR 
DLQ TPROCESS PCB=PCBDLQ, QUEUES=DR,ALTDEST=DLQ 
DLO TPROCESS PCB=PCBDL@Q 


AOPCTLI TPROCESS PCB=PCBOPCTL, QUEVES=DR,LU=YES 

AOPCTLO TPROCESS PCB=PCBOPCTL, QUEUES=DR 

AOPCTLP TPROCESS PCB=PCBOPCTL,ALTDEST=AOPCTLO,SECTERM=YES 
ASOFO TPROCESS PCB=PCBOPCTL,ALTDEST=SDLC76P7,SECTERM=YES 
A32701 TPROCESS PCB=PCB3270,QUEVES=DR,ALTDEST=A32701 
A32700 TPROCESS PCB=PCB3270 

APPLS TLIST TYPE=D,LIST=CA32701,A0PCTLI,DLQ) 


ACF/TCAM 3270 LOCAL TERMINALS 


HE IK HE HE IE HE HE HE HEE EK EE KE EK IE EE EE KE EEE KE KK KE KK HEH KE HK HK HK HHH HK HHH HK HK HK HHH KH KKH KK KK KKKK 


as 3270 LOCAL TERMINALS 4€08,4C9 x 
HE DEE IE SESE DE DE DE EE IE EE EE DE DE BK DE DE DK DK DDK OE 3K DK DE DE DE DE DE OE DE DE DE DE DEE EE HEE EE DE IEE HE DE DK DE DK DDK DK DK ODE DE DEE EEK RX 


L3277A TERMINAL TERM=327L,DCB=L0C3270,RLN=1,QBY=T, QUEUVES=MRT, X 
ALTDEST=L3277A,SECTERM=YES,UTERM=NO, X 
SCRSIZE=(€24,80),FEATURE=CNOBREAK,NOATIND» X 
OPDATA=C(L3277A,0,82,74,0,,LU3270V1,,0) 

L3277B TERMINAL TERM=327L,DC8=L003270,RLN=2, QBY=T, QUEUES=MRT, X 
ALTDEST=L3277B,SECTERM=YES,UTERM=NO, xX 
SCRSIZE=(24,80),F EATURE=CNOBREAK,NOATIND, X 
OPDATA=(L3277B,0,82,74,0,,LU3270V1,,0) 

HE HE DE DK DE HE DE DE HE DE DK HE DE DE DK DE DE DE DE DE DEE EE DE DK HE EE DK DK EE OK IKE EEK DE HE EK HK EEE EK EE HEE HK HE OEE HE OE EEK KEE 

x TERMINAL ENTRIES FOR 3705 NCP AND SSCP ‘ 

HEHE DHE HE HEHEHE HE HEHEHE HE HEHEHE DE EE HE DE EK EH EK EE EI IE EE KE DE DE KEK EK HE EEK KE DEK HE KEK HK HHH KK 

NCP TERMINAL TERM=LNCP,DCB=NCPDCB, DUMPDCB=DUMPDCB, ACTIVE=NO 

SSCP TERMINAL TERM=SSCP 

ACF/TCAM CDRM DEFINITION 

HEH HEH HEHEHE HH HEHE HEHEHE HK EK HED HK HEH HE HE KE HE HE IK HEE BE OE HE HEE DK HE EO HK HE HE EE DE IK HEE DE DE HE HED EH MRK 

x VTAM GROUP,CDRM AND CDRM RESOURCES % 

HEHE HE EE HEHE HK EE HE HK HIE HED HEE HEE KE HE DEE HE DE DK DK HE EE EOE HK EE DK EEK DK DEK HE DEE EEK RK HK 

VTAM GROUP MH=HOSTMH, BUFSIZE=256,BUFOUT=5, BUFMAX=10 

MVSVMVT TERMINAL TERM=CDRM, GROUP=VTAM,RLN=1,NETADDR=(13,1),ACTIVE=YES 

IMS TERMINAL TERM=LUNT,GROUP=VTAM,RLN=1,QBY=T, QUEVUES=DR,LUCAP=PRI,X 


TCMSESN=LUTERM, OPDATA=CIMS) | 
CICS1& TERMINAL TERM=LUNT,GROUP=VTAM,RLN=1,QBY=T,QUEUES=DR,LUCAP=PRI,X 
TCMSESN=LUTERM, OPDATA=CCICS14) 
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ACF/TCAM SAMPLE 


ACF/TCAM 3270 MODEL 12 


PSPSPS SSPE SESS SSS PESTS PEPE SE PSS ESSE SS SSS ESET SSS SESS SESS TESST TESS S SSeS SSS SF 

x GROUP x 

PEPE SSPE PES SSE SELES SSE SESE SESE SSS ESE SESE SS SSS ESS TESS SEP SS TTS S SST SETS SF 

GSNA GROUP MH=MHS3270,TRANS=EBCF, BUFMAX=7 , OPACING=5, BUFSIZE=2028 

HEE HE HEHEHE DE HEHEHE DE DED DE HE DE DE IE HE DEE DE IE EK DE EE DE HE EE DEK DEE EE DE BE DK 3K OE DK HE DE OE DK DE DE DEO DEE IK OEE DE 

x LINE 1 x 

HEHEHE HEHE HEHEHE HEE EK HE HEHEHE HEHE I HK EK EH EK HE EEK HE EK OK KE EEE EEE EEK 

SDLCI29 TERMINAL TERM=LINE, GROUP=GSNA,RLN=1,ACTIVE=YES 

PES PPS PSP SSS ESP S ELSES ESET ESET ESS SS ESS SEE STS SSS SESS SS ES TST TESS SET SSS SS | 

x 3270 LEASED LINE SDLC x 

tifttttiititttttitttittitirititittitittti tert itt te etttteeee tit tere see: 

PU3270V TERMINAL TERM=PUNT 

LU3S270V0 TERMINAL TERM=LUNT, GROUP=GSNA,RLN=1, QBY=T, QUEUES=MRT,USS=3270,X 
ALTDEST=LU3270V0,SECTERM=YES, x 
SCRSIZE=(24,80),FEATURE=(NOBREAK,NOATIND, X 
OPDATA=(LU3270V0,0,81,64,0,BI3270NB,LU3270V1,MHS3270,0) 

LU3270V1 TERMINAL TERM=LUNT, GROUP=GSNA,RLN=1,QBY=T,QUEUES=DR,USS=3270, X 
ALTDEST=LU3270V1, X 
OPDATA=C(LU3270V1,0,81,61,0,BI3270NB, ,MHS3270) 


XK KR 


Code deleted. 
XK KX 


LU3270V7 TERMINAL TERM=LUNT, GROUP=GSNA,RLN=1,QBY=T, QUEVES=MRT,USS=3270,X 
ALTDEST=LU3270V7,SECTERM=YES, X 
SCRSIZE=(24,80),FEATURE=CNOBREAK,NOATTND, X 
GPDATA=C(LU3270V7,0,381,64,0,BI3270NB,LU3270V1,MHS3270,0) 


ACF/TCAM 3274 LEASED LINE 


HEHE HE HEHE HEHE EH HEE HE I HIE EK I HE DE DDE DE DE DE IE HE DE DE HE HE DE DK DE IE IE DE DE DK DDE DE DE DE DK DEDEDE DK HK DE DE DK DE DE DE DE DE IK DE DE DE OE DE EE EE 

x LINE 2 X 

HEHE DE DEE HEH DED HEE DE HEE DE HEE EK HEE DEE DE IE DK HE DE DED DEKE DE DE DE DE DE DE DE DE DK DE DE DE DE DE DE DK DE DE DE DE DE DK DE DE DE DE DE DK IK DE IE 

SDLCI22 TERMINAL TERM=LINE,GROUP=GSNA,RLN=2,ACTIVE=YES 

HHH HEH HK HE HEHEHE HEHE HH HK IEE EK EK KK EEK KH HHH HK EEK KK RK HK 

* 3274 LEASED LINE SDLC * 

E93 HEH HE HEH HEHEHE HK IE DEE DDO HK OK OK DK I DKK KOKO OK DO OK HE HE IE DOK DE OK OOK OOOO OO IEE EEE 

SDLC3274 TERMINAL TERM=PUNT 

SDLCPAO01] TERMINAL TERM=LUNT,GROUP=GSNA,RLN=2,QBY=T, QUEUES= MRT,USS=SCS, X 
ALTDEST=SDLCPA01,SECTERM=YES, BUFSIZE=3588, | . x 
SCRSIZE=(24,80,43,80),FEATURE=(NOBREAK,NOATTN), X 
OPDATA=(SDLCPA01,0,11,64,0,NDS3278,5DLCPA07,NDSMH, 0) 


PAGE 6-8 SNA PRODUCT INSTALLATION GUIDE 6320-6028 (2779) 


ACF/TCAM SAMPLE 


HRHK KX 


Code deleted. 
KKK 


SDLCPA08 TERMINAL TERM=LUNT, GROUP=GSNA,RLN=2,QBY=T,QUEUES=DR,USS=SCS, xX 
ALTDEST=SDLCPA08, X 
OPDATA=CSDLCPA08,0,11,61,0,NDS8789, ,NDSMH) 


ACF/TCAM 3276 LEASED LINE 


HE 3 HE HE HE HE HE HE HEHE DE HE HE HEE I HIE HE DE DEK HE DEH IE HE HE HE HE HK HEE IE HE EK EK HEH HK HE HH HHH RHR 
x LINE 3 % 
HEH DEDEDE DE DE HEHE DE DEDEDE DE EE HEE HEE EK EEK DE IE HE HEE HK HE HEHE HK HK HE EK HHH KE HHH HK HHH HK 
SDLCI23 TERMINAL TERM=LINE, GROUP=GSNA,RLN=3,ACTIVE=YES 
HEH HEH HEH HEHEHE HEH HEHEHE KK HE HHH HE HE HEH HK KH HK HK HK HEH HK HHH HK HK HHH HH HHH HK HHH HK HH HHH 
% 3276 LEASED LINE SDLC x 
HE EH HEHE HE DE EH DEE HE EE EK KE DE EK EK KE EK HEH EEK EH EK HK HK HK HHH HK HHH K HK HHH 
SDLC3276 TERMINAL TERM=PUNT,ACTIVE=YES 
SDLC76P1 TERMINAL TERM=LUNT, GROUP=GSNA,RLN=3, QBY=T, QUEUES=MRT,USS=SCS, 
ALTDEST=SDLC76P1,SECTERM=YES, 
SCRSIZE=(24,80,24,80),F EATURE=CNOBREAK,NOATIND, 
OPDATA=CSDLC76P1,0,11,64,0,NDS3278,SDLC76P7,NDSMH, 0) 


mM KMS 


KK KKK 


Code deleted. 
NH KKHKX 


SDLC76P8 TERMINAL TERM=LUNT,GROUP=GSNA,RLN=3,QBY=T,QUEUES=DR,USS=SCS, xX 
ALTDEST=SDLC76P8, X 
OPDATA=CSDLC76P8,0,11,61,0,NDS8789, ,NDSMH) 


ACF/TCAM BSC 3270 


PPtTETererirritritttitttititrittitTtit ttt ititrititittiitti titi titi ttt est: 
% GROUP X 
HE HE HE HH HEHE EH DE HK EEE HEE HE EK HEH HH EEK EK HE HE HH HEH EK HK EK HK KH HK HHH HHH HK HK KH HH 
GBSC GROUP MH=MHS3270, TRANS=EBCF, BUFSIZE=2028,PCI=(€,N) 

HEHE DE EE DEE IE DE DE DE DE DEE HE DE DE DE DE KDE HEE DEH IE DE EK ED HE HE EEE EEK EK KK EEE KEE KK KKK KH 
% LINE 1 x 
HEE HE HE HE HE HE DE DE HE DK DK IE DEE DE IE DE DK DK DEDEDE DE DE DK DE 3 DE DED DK DK HE HE DE DE DEK DK DE KEKE EK EEK HHH MK KK KKK 
BSCI25 TERMINAL TERM=LINE,GROUP=GBSC,RLN=1,ACTIVE=NO 


G320-6028 (2/79) SNA PRODUCT INSTALLATION GUIDE PAGE 6-9 


ACF/TCAM SAMPLE 


HEHE HEHE HEHEHE HEHE DEEN HEE HEE IEE IE HE DIE HEB HEHE DIE HEHE IK HE I HEI DE HED IE 3 IE DE HE 3 HC DE ED HE IC I C3 I EE 


x S271 LEASED LINE BSC | | x 
3 HEH HHH HEH HHH DERE HHH III 


BSC3270 TERMINAL TERM=327C,GROUP=GBSC,RLN=1,QBY=T 


BSC32700 TERMINAL TERM=327R,GROUP=GBSC,RLN=1,QBY=T,QUEUES=DRT, X 
ALTDEST=BSC32700,SECTERM=-YES, X 
SCRSIZE=(24,803,F EATURE=CNOBREAK,NOATTIND, X 
OPDATA=C€BSC32700,0,84,74,0,,BSC32706,,0) 

XK RHR | 

Code deleted. 

% KKH 

BSC32707 TERMINAL TERM=327R,GROUP=GBSC,RLN=1,QBY=T, QUEUES=DR, X 
ALTDEST=BSC32707,0PDATA=(BSC32707,0,84,71,0) 

HEHE NEI HE DE HEE HEE IE EE EEE HE EE HEE HE DEE DE DEC DE DE DE DE DE IE DEE DE IE DE EE DEE DE IE DE IE HE EE DEE IEE IE EK DE I OEE OEE EEE EEE 

* 3270 LOCAL INVITATION LIST | * 

HEHE HEHEHE IEE IE HE DE EE IEE IE EE HE DE IE IE HEE IE EE EE IE DE EE EEE HE IE HEH HK EE ENE NK DE DE EE DEK DE DE EE DEE EK EEK EK 

LLSTI INVLIST ORDER=(L3277A+t06) LOCAL 3270 INVITATION LIST. 

LLST2 INVLIST ORDER=(L3277Bt06) ONE REQUIRED PER LOCAL DEVICE 

* MUST BE DEFINED IN THE SAME SEQUENCE AS THE TERMINAL MACROS 

HEHE HE HE HE DE HEE HED HE DE DE DEE DE DE DE NE EH HE DEE DEK EK DE DE DE DE DE DE IE DE DE DE IK EE DE DE IE DE DE DE EE DED HEE DE DEK DEE EE EEE HEHE 

TSINPUT | 
TITLE * : SSCP MESSAGE HANDLER’ 

HE HE HEHE HEE HEE DE IE HEE HE DE DE DE HE DE DE DE HE DE DE DE DE IE DE DE HE EE DE DEE DEK DEK ENE HE DE HE DEK DE HEE DEK DE DE HE DEK DE HK DEK DEE EE DE EE EEK 

x ¥% 

x MESSAGE HANDLER FOR SYSTEM SERVICES CONTROL POINT : % 

4 % 

HEH HE HEHEHE HEHEHE HEHEHE IE EIEN HEH IE HEHE IK HEHEHE HEHE DK HE HEE HEE HEH IE HEHEHE HEHE HEHE HEHEHE EEK HE HEHE HK HK 

% IEDMHGEN SSCP=YES,TOTE=NO 

TEDSCPMH STARTMH MH=SSCP 

LEDDCT.. EQU X*ol’ DISPLACEMENT FOR DCTBYTEI1 

IEDPREFG EQU X*'03’ DISPLACEMENT FOR PRFLFLG1 

IEDFDDCT EQU X*O5* DISPLACEMENT FOR DCTBYTES 

IEDTRMBO EQU X'OA* DISPLACEMENT FOR TRMBYTEO 

ITEDCINDX EQU X'1g' DISPLACEMENT FOR TRMCHIN 

IEDSRCE EQU X'10!' DISPLACEMENT FOR PRFSRCE 

IEDDEST EQU X'28' DISPLACEMENT FOR PRFDEST 

IEDSTAT2 EQU X'47' DISPLACEMENT FOR LCBRSP 

TEDFSTCH EQU X'*100" DISPLACEMENT FOR AVTCSTCS 

IEDMKLEN EQU X*3E8" | DISPLACEMENT FOR AVTDCTLN 

ITEDLRSP EQU X'QOl' EQUATE FOR LCBRESP 

IEDTRMSN EQU X'O02" | EQUATE FOR TRMSNA 

IED3270R EQU X'04'" | EQUATE FOR DCT3270 

ITEDCNVTD EQU X*'O08? | EQUATE FOR PRFLUSS 

ITEDRHFMT EQU X'08! EQUATE FOR FORMATTED INDICATOR 

 ITEDPFLCB EQU X'OC' EQUATE FOR PRFLCB 

TEDF3270 EQU X*40' | , EQUATE FOR DCTL3270 
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LR 
LH 
SLR 
Ic 
BCTR 
MR 
AL 
LR 
SL 
™ 
BNZ 
T™ 
BZ 


6, T EDADBUF 

1,1 
1,3,ITEDSRCE(C6) 
15, TEDRNMPT 
14,15 

8,1 
11,TEDMKLEN(C13) 
2,2 

2,» LTEDCINDX(38) 
2,0 

10,2 
11,ITEDFSTCH(13) 
7,1 

7,TEDTTPFL 


TEDTRMBOC7),IEDTRMSN 


IEDFID1 


TEDDCT1IC11),IED3270R 


ITEDNR327 


GET BUFFER ADDRESS 


CLEAR REGISTER 


ACF/TCAM SAMPLE 


GET SOURCE TERMINAL'S TNT 
GET ADDRESS OF TNT ROUTINE 


CONVERT TNT TO TTE 


SAVE SOURCE TERMINAL'S TTE ADDR 
GET LENGTH FOR DCT MASK 


CLEAR REGISTER 


GET DEVICE CHAR TABLE INDEX 
SUB 1 FROM DEVICE CHAR INDEX 
MULT DCT MASK LENGTH BY INDEX | 
ADD ADDRESS FOR FIRST ENTRY 


GET TTE ADDRESS 


BACK UP TO START OF NEG PREFIX 
IS SOUREC A FID1 DEVICE 


YES 


IS SOURCE A REMOTE 3270 


NO 


MSGEDIT CCR,,SCAN,(€5)23),BLANK=NO REMOVE CU DEV AID CUR CUR 


MSGEDIT CCRA,,X'11',€2))) 


B 


ITEDTRYFT 


TEDNR32?7 MSGEDIT CCRA,,X'15")) 
MSGEDIT CCRA,,X'3C")) 


MSGEDIT CCRA,,X*1E"),CRA,,X*1F"'3) REMOVE IRS IUS 
FORMAT FIDO INPUT 


B 
IEDFIDL TM 
BZ 


IEDTRYFT 


LEDFDDCT(11),IEDF3270 


TEDN3270 


REMOVE SBA ADDR ADDR 


FORMAT 3270 FIDO INPUT 


IS THIS 3270 DATA STREAM ? 


NO 


MSGEDIT CCRA,,X'01",€3)),CRA,,X*11°,€23),CRA,,X*7D",€2))), X 


B 


TEDN3270 MSGEDIT CCRA,,X*'15")) 


BLANK=NO 
LTEDCKFMT 


TEDCKFMT ITEDRH RHIND=(+FMH) 


LTR 
BZ 


15,15 
TEDSCPFD 


REMOVE NL 


RU FORMATTED ? 
YES 


CSOH % 7 STX),CSBA ADDR ADDR), CAID CUR CURD 
SEE IF FORMATTED 


HE HE DE DEKE DEE HE EE EE DE IK EE EE HEE EE SE EK EE EE EE EE EEK EE DE EE EK EE EE EEE EEK KKK KKK PASC 


CODE 


TEDN25 


OP CTL AND TRANSLATE 


PASC 


HEHE DEH HE HE HEE HE KE EE HE KK HE EE EK IK EK EE HK EK HE EE EE EE KE KEKE EEK EK EEE EE KEK MRK KKM PASC 


SETSCAN C'IEDTOTE/’,BLANK=NO 


LTR 15,15 

BNZ TEDTRYFT 
FORWARD TASK=TOTE 
L 6, TEDADBUF 
MVI 0C6),xX"1C" 
B TEDNDPRC 


TEDTRYFT EQU 


¥* 


IS THIS A TOTE COMMAND 


NO 


GET BUFFER ADDRESS 
SET PRFKEY FOR TOTE 


BRANCH TO END PROCESSING 


HEH HEHE HE DE DE EE HE DE DE DK DE DE DE DE DE DK BE EE IE DK DE HE DE DK DEE DEN DE DE DE DK DE DE DE DE DK DE EDK OK OK EE KK EK HEH KHK PASC 
* THIS CHANGE TESTS FOR A USS TYPE OF DEVICE AND FORMATS THE PASC 
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ACF/TCAM SAMPLE 


* MESSAGES ACCORDING TO A USS TABLE FOR THAT TYPE OF DEVICE. PASC 
* EACH USS TABLE HAS STANDARD DEFAULTS THUS ELIMINATING THE PASC 
* REQUIREMENT TO KEY THESE IN AT SESSION INITIATION OR | PASC 
* TERMINATION TIME BUT STILL ALLOWING USERS TO OVERRIDE THE PASC 
* DEFAULTS IF REQUIRED. ¥ PASC 
x | : me PASC 
* IN ORDER TO LOGON TO TSO USING: LOGON TSOID/PASSWORD | PASC 
*% EACH USS TABLE HAS THE USER DATA FIELD DEFINED CLENGTH 14). PASC 
¥ oN | | PASC 
* THESE CHANGES ARE DEPENDENT ON USING THE TERMTYPE OPTION FIELD - PASC 
* FOR EVERY TERMINAL AS DEFINED BELOW: PASC 
X | 3 : : | PASC 
* TERMTYPE OPTION XLI X*80* 3270 TERMINAL PASC 
¥ X40" 3770 TERMINAL | PASC 
* X'20" 3767 TERMINAL PASC 
% X'10*" NDS 3270 TERMINAL PASC 
HE HEE HEH HEHE HE HE EDK DE HEHE IESE DE DE HE DE DE SE HE DE DE DE DE DE ED DEK OE DE DE DE IK DE NK DE DEE DEK EK HE EE OE EEE EERE HH PASC 
LOCOPT TERMTYPE, (5) IS OPTION FIELD PRESENT PASC 

LTR 15,15 | TEST RETURN . | PASC 

BNZ SSCP FMT NO - EXIT | PASC 

™ C0C5),X*80" | 3270 © PASC 

BO SSCP3270 YES = PASC 

™ 0€5),X'20' 3767 | | PASC 

BO SSCP3767 YES PASC 

 ™ 0€5),X"40! _ 3770 PASC 

BO SSCP3770 YES PASC 

™ 0€5),X"10' NDS 3270 PASC 

BO SSCPNDS YES PASC 

iB SSCPFMT NONE OF THESE - EXIT. PASC 

SSCP3270 EQU % PASC 
IEDFMT IN=IEDAREAI, OUT=IEDAREA2, TABLE=USS3270 PASC 

B IEDSCPFD | PASC 

SSCP3767 EQU * | | PASC 
- YEDFMT IN= TEDAREAIL, OUT=IEDAREA2Z, TABLE=USS3767. PASC 

B TEDSCPFD : : PASC 

SSCP3770 EQU * PASC 
| IEDFMT IN=IEDAREAI], OUT=IEDAREA2, TABLE=USS3770 PASC 
B IEDSCPFD i — PASC 

SSCPNDS -EQU : . 7 PASC 
IEDFMT IN=ITEDAREAI,QUT= TEDAREAZ; TABLES USSNDS PASC 

B IEDSCPFD nase PASC 

SSCPFMT EQU % PASC 


36H HH HEHE HH HEE HE HED II IIE PASC 
ITEDFMT IN=ILEDAREAIL, OUT= TEDAREAZ, TABLES TEDUSSTS 
TEDSCPFD EQU x 
ee” 6,TEDADBUF GET BUFFER ADDRESS 
L 4, IT EDPFLCB(6) _ GET PLCB ADDRESS 
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TEDNDPRC 


TEDNFMT 


ITEDCKFDO 


TEDOUTPC 
ITEDTTPFL 
TEDNGPRF 
ITEDAREAI 
TEDAREA2 


TITLE * 


NI 
FORWAR 
INEND 
OUTHDR 
L 

S 

™ 

BZ 


ACF/TCAM SAMPLE 


ITEDSTAT2(04),X"FF'-IEDLRSP SO NO RESPONSE IS SENT 


D TASK=SSCP 


2,T EDADBUF 

2, TL EDNGPRF 
TEDPREFGC2),ITERCNVTD 
TEDNFMT 


GET BUFFER ADDRESS 

BACK UP TO NEGATIVE PREFIX 
NEED TO BE CONVERTED 

NO 


IEDFMT IN=ITEDAREA1,OUT=IEDAREA2, TABLE=IEDFSSTB 


LR 

LH 

SLR 

Ic 
BCTR 
MR 

AL 

S 

™ 

BO 

T™ 

BZ 

T™ 

BO 
MSGEDI 
B 

™ 

BZ 
MSGEDI 


TEDOUTPC 

6, TEDADBUF 

i,l 

1,3,ITEDDEST(6) 
15,TEDRNMPT 

14,15 

8,1 

11, TEDMKLEN(C13) 

222 

2,TEDCINDX(8) 

2,0 

10,2 

11,TEDFSTCH(13) 

6, TEDNGPRF 
0€6),ITEDRHFMT 
TEDOUTPC 
TEDFDDCTC11),IEDF3270 
TEDCKFDO 
TEDPREFG(6),ITEDCNVTD 
IEDOUTPC 

T CCI,XL2'F1C03',,)9) 
ITEDOUTPC 
TEDTRMBOC8),ITEDTRMSN 
IEDOUTPC 

T CCI,X'15',,3) 


BRANCH TO OUTEND PROCESSING 
GET BUFFER ADDRESS 

CLEAR REGISTER 

GET DEST'S TERMINAL'S TNT 
GET ADDRESS OF TNT ROUNTINE 
CONVERT TNT TO TTE 

SAVE DESTINATION’S TTE ADDR 
GET LENGTH FOR DCT MASK 
CLEAR REGISTER 

GET DEVICE CHAR TABLE INDEX 
TAKE 1 FROM DEV CHAR INDEX 
MUTPLY DCT MASK LEN ® INDEX 
ADDRESS FOR FIRST ENTRY 

GET NEGATIVE PREFIX 

RU FORMATTED ? 

YES 

IS THIS 3270 DATA STREAM? 
CK FOR NL INSERTION 
CONVERTED DATA ? 

YES ~ EXIT 


EXIT 

FID? 

NO 

INSERT NL AT START OF BUFFER 


MSGEDIT CCI,X'15",0,3),LAST=YES INSERT NL AT END OF MSG 


OUTEND 
DS 
DC 
DC 
DC 
DC 
dC 
DC 


OF 
F'13" 

FFs’ 
XL6'010000000000" 
XL256'00' 
XL6'010000000000" 
XL256"00! 


LENGTH OF TERM. NEGATIVE PREFIX 
LENGTH OF BUFFER NEGATIVE PREFIX 
AREA FOR IEDFMT MACRO 
AREA FOR IEDFMT MACRO 


APPLICATION MESSAGE HANDLERS’ 


HE HEHEHE IE HE KE HE HE KE EE EE EK SEE KE EE KE DE DEK EE EE EK EK KE EE EEE KE KEKE HK KEK KEK EK KR KK KKK KKK RN KK KK 


MESSAGE HANDLER FOR OPERATOR CONTROL PROGRAM % 
3 HE HEHEHE HE HEHE HE HEE EE HE DE DE DE BK 3 5 3 3 DE 3 3 DE EOE DE DE DK DE DE HE HE UE HE DE DK DE DK DEK DK DK YK DK DK OKO 3K OED DE EK KEK OK OE KEK 


ras 


MHOPCTL 


STARTM 
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ACE/TCAM SAMPLE 


INHDR 

TEDOPCTL 

FORWARD DEST=PUT 

TNEND 

OUTEND 
HE HE HE HEHEHE HEHE HEE KK HEHE HE IEE HE IE HE HEE HE HEH HIE EE KH IE DE EE HE IE HK HEHE IEE EE HE DEE HE IEEE EEK 
x MESSAGE HANDLER FOR 3270 INQUIRY APPLICATION PROGRAM x 
HH HEHEHE HE HEHEHE HEHEHE HE HEHE HK HE DE HE DE HE EEK EE IK EK EE HK EEO DK EEE DE EEE DHE DE DE KEK EEE EEE IE 
MH3270AP STARTMH 

INHDR 

FORWARD DEST=PUT 

INEND 

OUTEND 
YE HEHE HEH IE HH HHO HH HO HH HD HH 
% MESSAGE HANDLER FOR ALL MESSAGES SENT TO THE DEAD LETTER QUEUE x 
HEHE HE HE HE HE HK DEE HE ED HE HE HE HE HE KH HK HE HE DE DE DE DEE EK DE EE DE DE DEK IE DEE KE EEK KE EK KEK HH HK HK HK 
MHDLQAP STARTMH 

INHDR 

FORWARD DEST=PUT 

TNEND 

OUTEND 
tepEperrett eee resett terre terttttetesesst ter ettttt ete setts settee eee g 
X CROSS DOMAIN MH x 
HEHEHE HE HEHEHE HE HEHEHE HEE DE IE HEH HEE HEE HE KH HE IIE EH HK HEH KKK HEE KK HE HE KE HE HK HEHE KEK KKK 
HOSTMH STARTMH BEXIT=(BINDXHH),DFC=NONE 


B. & SNA SENSE BYTES 


CU AND DVC ARE PRESENT FOR BSC ONLY. 
SBA, BUF AND BUF ARE PRESENT WITH FORMATTED SCREENS ONLY. 
HE HE EH HEHE HEHE HE HEHE HE HEHEHE HK HEHE DEK HE EEK HK HE HE HEH HEHE HE HEH EK HE HHH HEH HE HK HEH HEH EH IKK HK HHH KH 


MHS3270 STARTMH DFC=FULL,LU=YES,ALTMH=TSOMH 


INHDR 

INEND 

OUTEND 
TITLE ' 3270 BSC,SDLC AND LOCAL MH‘ 
HEHE HEH KKH HEHEHE HK HEHEHE HK HEH HEHE HEH HHH HH HEHE HK HEHEHE KK HK HK HH HEHEHE HH HK HEM MK HH HHH 
% 327 0 MESSAGE HANDLER iS 
% x 
x THIS MH SUPPORTS 3270 LOCAL,BSC AND SDLC. * 
% * 
aS INPUT DATA WILL APPEAR AS FOLLOWS: % 
x A. CDACCS BB X 
¥ U VI UU BU U CUSER TEXT) | 
X CDRRA F F as 
x x 
x % 
% % 
x x 
¥ % 


INHDR | 
PATH X'O00',PATHSW RESET PATHSW TO IDENTIFY ERRORS 


x LOCATE THE ERRCT OPTION FIELD. IF IT I5 EQUAL TO ZERO THEN IT 
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x MUST BE RESET TO ONE TO PREVENT IEDVOFF FROM SUBTRACTING TO 
xX MINUS ON GOOD TRANS. SEE INMSG AND OUTMSG. 
LOCOPT ERRCT,(7) REG 7 IS ADDR OF ERRCT OPTION 
LTR R15,R15 GOOD RETURN CODE ? 
BNZ S32LO0PT NO, FORGET IT, BRANCH 
CLI OCR7),X"'00" TEST ERRCT EQUAL ZERO 
BNE S32LOPT BRANCH NOT EQUAL ZERO 
MVI OCR7),X"O01' SET TO ONE TO PREVENT MINUS ON VOFF 
S32LOPT LOCOPT TERMTYPE, (4) REG 4 IS ADDR OF TERMTYPE OPTION 
LTR R15,R15 GOOD RETURN CODE ? 
BZ S32MODE YES, GO LOCATE TERMMODE OPTION 
S32PATH1L PATH X'01",PATHSW SET OPTION NOT FOUND PATHSW 
B S32FMSG 
S32MODE LOCOPT TERMMODE,(5) REG 5 IS ADDR OF TERMMODE OPTION 
LTR R15,R15 GOOD RETURN CODE ? 
BZ S32TYPE GO CHECK TERMTYPE 
PATH X'O1',PATHSHW SET OPTION NOT FOUND PATHSW 
B  S32FMSG 
S32TYPE SETSCAN 0 SET SCAN POINTER 
LTR R15,R15 TEST RC FOR -4 (ZERO LENGTH BUFFER) 
BM S32FMSG DO NOT PROCESS ZERO LENGTH BUFFERS 
LR R3,R15 SAVE ADDR OF DATA-1 FROM SETSCAN 
CLC 1€3,R3),STATUS IS IT STATUS MSG 
BE S32STAT YES 
T™ OCR4),X'81L" 3270 SDLC 
BO $32RH YES 
™ OCR4),X'82! 3270 LOCAL 
BO S32CLR YES 
MSGEDIT CCR,,,€2))),BLANK=NO 
T™ OCR4),X'84" 3270 BSC 
BO S32CLR YES 
PATH X'04',PATHSW TERMTYPE ERROR 
B S32FMSG 
S32RH IEDRH RHIND=(+EXR) TEST FOR SENSE INCLUDED MSG 
CLM R15,1,=X'08! TEST RETURN CODE 
| BNE S32SENSE YES EXR, BRANCH 
S32CLR CLI 1(R3),X'6D' CLEAR KEY ? 
BNE S32RPAI NO, GO TEST FOR PAl 
TERRSET FOR CLEAR MSGGEN - DO NOT FORWARD 
B S32IMG1O 
S32RPAl CLI 1(R3),X*6C" PAl KEY ? 
BE S32PRINT YES, GO TO PRINT ROUTINE 
CLI 1CR3),X'7D!" ENTER KEY ? 
BNE S32UKWN NO, GO TO UNKNOWN INPUT 
CLI G4(R3),X"11' IS 4TH BYTE AN SBA CFORMATTED) 
BNE S32DEL3 NO, UNFORMATTED BRANCH 
MSGEDIT (CR,,,(6))),BLANK=NO DEL AID 2(CUR) SBA 2C(BUF) 
| ONLY DATA LEFT, GO PROCESS 


B 


G320-6028 (2/79) 


S32CODE 


SNA PRODUCT INSTALLATION GUIDE 


PAGE 6-15 


ACF/TCAM SAMPLE 


S32DEL3  MSGEDIT ((R,,,€3))),BLANK=NO DELETE AID 2CCUR) 
22000002 II IIT I TTT TT TT 
* -~—-SsdDATA ~ STREAM IS NOW USER DATA ONLY. x 
3 HE KEIICHI HH HCH HHI IHC HCI HCH ICO HC WC HC OI OI I I I I II 
S32CODE CODE 
LOGON 
HH HEH HHH HH HH HEHEHE HEHEHE HEHE HEHE HE DEDEDE DEK DED DDE DK DDC BE HE HE HE IE IK DK DK DD BO DK OOD DOO I HI I OOK 
x - PROCESS EXTENDED OPERATOR CONTROL COMMANDS XX 
HH HEHE HEH HK HE HE IE EK EK HEE EN HE HE EEE IE EEE EE HE EK EEE HE EE EE EK EK SE HE EK EE EE EEK RM KKK 
CLI 1(3),C'7" 
BNE S32MTYP 
TERRSET 
eB S 32MFWD 
S32MTYP MSGTYPE X 
S32MFWUIN FORWARD DEST=C'AOPCTLI' 


B S3Z2IMG10 
HE HH HHH HHH HH HE HHH HEHEHE HEHE HK HE DHE HEH HE HE HK HE DE HE HK HE DH HE HK HEH HE HEH HE HEH HH HE EK HK HI HK HK HK HK 
X PROCESS MESSAGE SWITCH M DEST 7 USER MESSAGE pS 
HE HEHEHE HEHEHE HED HEH HEED HD HI IE HED HOE HED HB EDD HD WE DH DD DW BD DH DE DI DE DIE DEK 

MSGTYPE M 

FORWARD DEST=**,EQA=/ 

TERRSET 

B S3Z2IMG10O 
ttttrtereetettttttttttttittttititttittttttistettitrsttse treet t teres 
x PROCESS INQUIRY MESSAGE I 999999 % 
HEH HH HH HEHEHE HE HK HK YE HEHE HE DE DE DK DE DE EE DE DE DE DK DK EDC DE DE DK DK DEE DEE DEDEDE EK DK HE DE DE KE 3 DE DE KK KKK KKK RH 

MSGTYPE I 

B S32FWD 
eeerttttteteseettttttsteseststttseset ere setstt tess ett ett tess sees ease: 
x PROCESS CLOSE MSG TO CLOSE APPLICATIONS a % 


HHH HEHE HEHE DE HEHE HEHE HEHE HEHE IE HEE DEE HE DE HED EE HE EEK HEE EE EE EE HE I HEE EE EE HEI EK EK HE EEK KEK 

MSGTYPE CLOSE 

TERRSET 

FORWARD DEST=C'APPLS' 

 &B S32IMG10 

HK HEHEHE DEE HEHEHE HEHEHE DEH IEE HEHEHE HEH EE HE HE HEHEHE EE EEE EE HEE EE EE EC DEE HEE EE 
% PROCESS OTHER MESSAGES —_ x 
ME DE 3 HE HE HE HK HEHE EK DEE 3 DE DE HE DE 3 3 DEE DE DK DK DK ED DK IK DE DE DE DK DK OK DED DK DK OK EOE OOK DE OE OE DK IK OE DE OK OK EEO OK EK KE KEK 

MSGTYPE , UNIDENTIFIED MESSAGE 
S32UKWN PATH X'10",PATHSW | SET UNKNOWN INPUT PATHSW 

B S32FMSG - 
HHH HEHEHE HEHEHE HEHEHE HEHEHE HH HII DE HHH HH HEHEHE KH HHH IIH HH HHI EK HH HIE IO I HCE IE 
THIS ROUTINE WILL PROCESS PAl REQUEST TO PRINT THE LAST 
MESSAGE SENT TO A DISPLAY. TO ALLOW THIS FUNCTION, THE 
PRNT3270 OPTION FIELD MUST BE DEFINED FOR THE 3277 GIVING 
THE NAME OF THE 328X PRINTER TO RECEIVE THE MESSAGE. 
A SPECIAL PRINT REQUEST MESSAGE WILL BE BUILT AND SENT TO 
THE 3270 APPLICATION. THE MESSAGE WILL CONTAIN THE NAME OF 


KKK KKK 
K KK K K XK 
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% THE PRINTER AND THE SEQUENCE NUMBER OF THE LAST OUTPUT x 
x MESSAGE SENT TO THE DISPLAY. THE APPLICATION WILL RETRIEVE 
% THAT MESSAGE USING POINT AND GET MACROS AND BUILD A PRINT * 
X MESSAGE. 7 % 
HEE HE HK HE DEK HE HEE HK IE EK EE EE EEE KK EEE EK SE HE HE HE KE HK EE EE EE EE EK EK EK EE EE EE EEE KK KH KKM KX 
S32PRINT LOCOPT PRNT3270,(6) REG 6 ADDR OF PRINTER NAME OPTION 
LTR. RI5,R1L5 GOOD RETURN CODE ? 
BZ S32PRO1 YES, GO TO BUILD PRINT MESSAGE 
PATH X'20',PATHSW SET PRINTER OPTION NOT FOUND PATHSW 
B S32FMSG 
S32PRO1 MVC SIZMHPRT,0CR6) MOVE PRINTER NAME TO MHPUT AREA 
L R6, [TEDADBUF REG 6 IS ADDRESS OF CURRENT BUFFER 
LH R1,16(00,R6) LOAD TNT OFFSET INTO REG 1 
x ITEDRNMPT IS AVT FIELD CONTAINING ADDRESS FOR ROUTINE IN 
¥ TERMINAL TABLE THAT CONVERTS TNT OFFSET TO TTE ADDRESS. 
% THIS ROUTINE EXPECTS TNT OFFSET IN LOWER TWO BYTES OF REG 1 
L R15, TEDRNMPT REG 15 IS ADDR OF TNT CONV ROUTINE 
BALR R14,R15 CONVERT TNT OFFSET TO TTE ADDRESS 
LH R6,6¢€0,R1) REG 1 PLUS 6 IS OUTPUT SEQ NUM 
SH R6,=H'L’ SEQ NUM ALWAYS NEXT NUM TO BE USED 
STH R6,S3S2SEQWK STCRE SEQ NUM 
MVC SIZMHSEQ,S32SEQNK PUT SEQ NUM IN MESSAGE 
MHPUT WORK=S32MHWRK PUT NEW PRINT REQUEST MSG IN BUFFER 
LTR. R15,R15 - GOOD RETURN CODE ? 
PZ S3Z2SETER 1% YES, GO TO FORWARD MESSAGE 
PATH X'80*,PATHSW | SET BAD MHPUT PATHSW . 
B S32FMSG 


HEH DEK HEHEHE HE HE HE HE HE HE HEHEHE DE HEH DBE DK DDD DD DE DE DD DE BE DC DE IC CB DB 
SENSE INCLUDED MESSAGES FOR 3270S CONTAIN ¢ SENSE BYTES 
PRECEDING THE USER DATA. THE FIRST 2 BYTES ARE SNA SENSE 
INFORMATION THAT IS MAPPED INTO THE MER BITS. THE 3RD AND. 
4TH BYTES ARE "USER BYTES" AND FOR SDLC 3270S CONTAIN 
INFORMATION SIMILAR TO THE BSC 3270 SOK % R STATUS 
MESSAGES. WHEN BYTES 3 AND 4 ARE NONZERO THE UNDEFINED ERROR 
BIT 31 IS SET IN THE MER. THIS IS EQUIVALENT TO BIT 15 THE 
STATUS MESSAGE BIT FOR BSC DEVICES. THIS MH WILL CANCEL A 
MESSAGE IF ANY SNA BITS ARE PRESENT, BUT IF ONLY 3270 SENSE 
INFORMATION IS PRESENT, IT WILL NOT BE ANALYZED OR CANCELED. 
3 HEHEHE HEHEHE HE HEI ICICI BECHER IIE 
S32SETER TERRSET _ 2 SET USER BIT FOR CLEAR MSGGEN 
S3ZFWD FORWARD DEST= C'A32701° 
B S3Z2IMGIO. 7 
S32STAT CLC 6(2,R3), DVCAVAIL IS USER SENSE DEVICE AVAILABLE ? 
BNE — S32FMSG - NO, BRANCH 
B S32RLS | , | 
SS2SENSE CLC | 3(€2,R3),SDVCAVL IS USER SENSE DEVICE AVAILABLE ? 
BNE | SS2FMSG — NO, BRANCH 
S32RLS = IEDRELS | ~ RELEASE QUEUE, DEVICE IS AVAIL 


KKKKKKKR KKK 
eK KKK KK KK KX 
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¥ IT IS POSSIBLE TO HAVE SNA SENSE BYTES WITH A ZERO LENGTH 

x BUFFER. SINCE IT WILL BE AN ERROR AND WILL BE IN THE MER 
BITS, NO EXAMINATION WILL BE DONE HERE. | 

S32FMSG FORWARD DEST=C'DLQ' | THIS MESSAGE IS TO BE CANCELED 

¥ A FORWARD IS REQ'D IF ERRORMSG USED 
I HEHE HE IE HK HEE KE KE HK EK KKK EE EK HEE EE HE EK KEK EK EK KK KE HK EK EK HK KKK HK HHH KK KK KK KK KK KN 
ss INMESSAGE SUBGROUPS ARE EXECUTED AFTER THE ENTIRE x 
x MESSAGE HAS BEEN RECEIVED AND THE MESSAGE ERROR x 
% BITS ARE SET. ONLY ONE SUBGROUP WILL EXECUTE AND x 
X IT WILL BE THE FIRST ONE WHOSE PATH IS SATISIFIED. % 


3H HE HE HCD DEH HE HCD DK HH HD HE HDD BH DD HE HD DO WD OW OO BO OO OIE 
S32IMG10 INMSG PATH=CPATHSW,X'"O01") OPTION FIELD NOT DEFINED 


CANCELMG , CANCEL THE MSG 

ERRORMSG ,DATA=S32MSG04,HEADER=NO 

TEDHALT , BREAK SESSION 

INMSG PATH=CPATHSW,X"04°) TERMTYPE NOT 3270 SDLC 
CANCELMG , CANCEL THE MSG 

ERRORMSG ,DATA=S32MSG05,HEADER=NO 

IEDHALT , BREAK SESSION 

INMSG PATH=CPATHSW,X'10") UNKNOWN INPUT AID OR MSG TYPE 
CANCELMG , CANCEL THE MSG 


ERRORMSG ,DATA=S32MSG06,HEADER=NO 
INMSG PATH=CPATHSW,X'20") |= PRNT3270 NOT DEFINED NO PRINT 
CANCELMG , | CANCEL THE MSG 
ERRORMSG ,DATA=S32MSG07,HEADER=NO | 
INMSG PATH=CPATHSW,X'80") = MHPUT FAILED 
CANCELMG , CANCEL THE MSG 
ERRORMSG ,DATA=S32MSG08,HEADER=NO 
INMSG PATH=C(TERMTYPE,X'02") 3270 LOCAL 
CANCELMG X'430EC7F7FF' 
MSGGEN X'0000080000',S32RSETL. 
INMSG j WHATS LEFT SHOULD BE 3270 SDLC 
CANCELMG X'430EC6F7FF' NOTE: BIT 31 UNDEF ERR NOT CANCELED 
MSGGEN X'0000080000',S32RSETN RESET 3277 NCP IF USER BIT 
THE NEXT THREE IEDVOFF MACROS ARE TO COUNT TRANS ERRORS AND 
IF 10 ERRORS ARE FOUND BEFORE GOOD TRANS RESET THE COUNTER TO 
ZERO, THEN POLLING WILL BE STOPPED FOR THAT TERMINAL FOR ONE 
MINUTE. THE SYSTEM CONSOLE WILL RECEIVE A TERMINAL STOPPED 
MESSAGE. | | 
TO PREVENT ERRCT FROM GOING NEGATIVE BECAUSE OF SUBTRACTING 
ON GOOD MESSAGES, CODE IN INHDR AND OUTHDR RESETS ERRCT TO 
ONE WHEN IT REACHES ZERO. | . 
IEDVOFF X*'010445F7FF",COUNT=CERRCT,GT,9),INTVL=60 

ADD TO COUNTER IF ERROR. IF COUNTER EQUAL OR 

GREATER 8, STOP POLLING FOR 1 MINUTE, CLEAR 
% COUNTER, NOTIFY SYSTEM CONSOLE. 

TEDVOFF ,COUNT=CERRCT,EQ,250),UPDATE=SUB EVERY MESSAGE 
IEDVOFF X'010445F7FF',COUNT=CERRCT,E@,250) BAD MSG ONLY 


K KK K K K K MK 


x & 
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ERRORMSG X'O010405F7FF* ,DATA=S32MSG01,HEADER=NO 
ERRORMSG X'0200820000" ,DATA=S32MSG02,HEADER=NO 
ERRORMSG X*'4002400000', DATA=S32MSG03,HEADER=NO 
ERRORMSG X’FF7FF/7FFO0*,DATA=S32XX,DEST=C* ERRQ'", EXIT=ERMSGXIT 


INEND 

OUTHDR 

PATH X'00°,PATHSW RESET PATHSW TO IDENTIFY ERRORS 
x LOCATE THE ERRCT OPTION FIELD. IF IT IS EQUAL TO ZERO, THEN 
x RESET TO ONE TO PREVENT IEDVOFF FROM SUBTRACTING TO MINUS 
x FOR GOOD TRANS. SEE INMSG AND OUTMSG. 

LOCOPT ERRCT,(7) REG 7 IS ADDR OF ERRCT OP 

LTR RL5,R15 GOOD RETURN CODE ? 

BNZ S32SCANA NO, IGNORE IT, BRANCH 

CLI OCR7),X*00" TEST ERRCT EQUAL ZERO 

BNE S32SCANA BRANCH NOT EQUAL TO ONE 

MVI OCR7),X'OL" SET TO ONE TO PREVENT MINUS ON VOFF 
S32SCANA SETSCAN 0 SET SCAN POINTER 

LTR R15,R15 TEST FOR ZERO LENGTH BUFFER 

BM S$3Z20MG10 RC -4 IS ZERO BUFFER DO NOT PROCESS 

LR R3,R15 SAVE ADDR OF DATA~1 FROM SETSCAN 

LOCOPT TERMTYPE, (4) REG 4 IS ADDR OF TERMTYPE OPTION 

LTR R15,R15 GOOD RETURN CODE ? 

BZ S3Z20MODE YES, GO LOCATE TERMMODE OPTION 

PATH X'O01',PATHSW SET OPTION NOT FOUND PATHSW 

B S$320MG10 OUTHDR COMPLETE, GO CHECK MER BITS 
S3S2Z0MODE LOCOPT TERMMODE,(5) | REG 5 IS ADDR OF TERMMODE OPTION 

LTR  R15,R15 GOOD RETURN CODE ? 

BZ S32ESC YES 

PATH X'O01',PATHSHW SET OPTION NOT FOUND PATHSW 

B S$320MG10 OUTHDR COMPLETE, GO CHECK MER BITS 
S3Z2ESC CLI LOR3),X'27' IS IT FORMATTED? 


BE S32RESC YES - DO NOT FORMAT 
MSGEDIT (CI,X'27",SCAN)) : 
MSGEDIT (CCI,X'F17B1140401D4013",SCAN)) 


S32RESC TM OCR4),X'"82' IS IT LOCAL? 
BNE S32DESC NO 
SCREEN WEA,RETRV=YES SCREEN REQD FOR LOCALS 
MSGEDIT C(CR,,,€2))) REMOVE ESC AND CMD 
B S32DE0T 
S32DESC TM OCR4),X"84" IS IT BSC? 
~ BO S32DE0T . YES 


MSGEDIT CCRA,,XL1'27")) REMOVE ESC FOR DATA STREAM 
S32DEOT MSGEDIT CCRA,,XL1°37'")) REMOVE ANY EOTS CIED MSGS USUALLY) 


% IF THE USER WANTS TO EXAMINE THE SNA SENSE BYTES PRIOR TO 

% GUTMSG, THE CODE SHOULD BE INSERTED HERE. 

HEHEHE HE HEHE HEHE EH IE HEH IE DE HE IEEE EH IEE EEE HK HE HK EK HE EE DE EE OE DEE DE IEEE 
% OUTMESSAGE SUBGROUPS ARE EXECUTED AFTER THE COMPLETE x 
X MESSAGE HAS BEEN SENT. ONLY ONE SUBGROUP WILL EXECUTE % 


G320-6028 (2/779) SNA PRODUCT INSTALLATION GUIDE | PAGE 6-19 


ACF/TCAM SAMPLE 


oS AND IT WILL BE THE FIRST ONE WHOSE PATH Is SATISIFIED. x. 
HE HE HK HE HK HE HK HE HK HE HE DE HEE DE DE DK HE DE HE DK HE DE IK OE DK OE HK 3 HK HE HK DE DK HE DE OK HEE EK HEE HK HK HK HHH HK HH HE HHH 
S3Z0MG10 OUTMSG PATH=(PATHSW,X'O1') OPTION FIELD NOT DEFINED 
HOLD > HOLD AND NOTIFY. TCAM PRINTER 
ERRORMSG ,DATAS S$32MSG04,DEST=C'LU3270V1',HEADER=NO 


OUTMSG PATH=CERRCT,X'F8') ERRCT 8 OR MORE 
HOLD : | HOLD FOR UNRECOVERABLE ERROR 
IEDVOFF ,COUNT=C(ERRCT,GE,0) CLEAR ERRCT 
OUTMSG 
HOLD X"OOO003F7FF",INTVL=15 RESEND AFTER 15 SEC 
x THE NEXT THREE IEDVOFF MACROS ARE TO COUNT TRANS ERRORS AND © 
x THE NUMBER OF TEMPORARY HOLDS CHOLD WITH INTERVAL). 
x WHEN THE ERRCT IS 8, THEN A DIFFERENT OUTMSG WILL EXECUTE 
x WHICH WILL ISSUE A PERMANENT HOLD. IEDVOFF IS ONLY BEING 
x USED FOR ITS COUNTER CAPABILITY. | 
x TO PREVENT ERRCT FROM GOING NEGATIVE BECAUSE OF SUBTRACTING 
x ON GOOD MESSAGES, CODE IN INHDR AND OUTHDR RESETS ERRCT TO 
x ONE WHEN IT REACHES ZERO. 
IEDVOFF X'000003F7FF',COUNT=CERRCT,EQ,250) ADD IF ERROR 
IEDVOFF ,COUNT=CERRCT,EQ,250),UPDATE=SUB | EVERY MSG 
IEDVOFF X'000003F7FF',COUNT=(ERRCT,EQ,250) BAD MSGS ONLY 
ERRORMSG X'FF7FF7FFO0', DATA=S32XX, DEST=C' ERRQ', EXIT=ERMSGXIT 
OUTEND 
HK HHH HK HK HK HK HK HK KK KI KH KK KK IK HE EK HK KR HK EK EH KK KE EEK KR HK KKK KK KKK KKK 
x ERROR MESSAGES USED BY ERRORMSG MACRO AND WORK AREAS x 
HEHE HK HK HE KEK HK HE HE HK EEK EEE KK HK HEE KE EE EK EE EK KE EK EE EEK KKK KKH KH KK KKH HK KKK KKHKKKKK 
S32XX DC AL1(25) | 
DC C'ERROR= XXXXXXXX 
S32MSGO01 DC AL1(35) MESSAGE LENGTH 
pe C'S32-01 TRANSMISSION ERROR, RE-ENTER’ 
S32MSG02 DC AL1(42) MESSAGE LENGTH — 
DC C'S32-02 SYSTEM UNDER STRESS, RE-ENTER LATER’ 
S32MSG03 DC AL1(34) MESSAGE LENGTH 
Dc C'S32-03 DESTINATION ERROR, RE-ENTER! 
S32MSG04 DC AL1(25) MESSAGE LENGTH 
| DC -C'S32-04 OPTION FIELD ERROR" 
S32MSG05 DC AL1(38) MESSAGE LENGTH 
Dc C'S32-05 TERMTYPE NOT 3270 SDLC OR LOCAL’ 
S32M5G606 DC AL1(30) MESSAGE LENGTH 
DC C'S32-06 UNKNOWN INPUT, RE-ENTER’ 
S32MSGO07 DC ALI(62) MESSAGE LENGTH 
| DC C'S32-07 PRINT NOT DEFINED FOR THIS TERMINAL' 
S32MSG08 DC AL1(31) MESSAGE LENGTH 
pe C'S32-08 MHPUT FAILED, CANT PRINT! 
S32RSETN DC AL1(08) SDLC 3277 CLEAR SCREEN 
DC X"F5C31140401D4013' 
S32RSETL DC AL1C10). LOCAL 3277 CLEAR SCREEN 
Dc X'C311404601D4013124040" 
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HK HE HE HE HEHE HE HE DE HE HE DE IE HE HK DE DE IE DE IE DE DE DE DE HE SE IK DE DE DE DE IE SE DEE HE DE HE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE SE DE DE DE DE DE DE DE DE DE DE DE NE EE 


X WORK AREA TO BUILD PRINT REQUEST MESSAGE WHEN PAl RECEIVED x 
HE 3 3 HE DE 3 DE HE DE DE DK HE HE DE DE DK DEE DE DE DK HE DE DK DE HEE DE DK DK HE DE DE DK HK HE HE DE DE DK HE DE DE HK EO HK HE DE DE DE HK HE HE IE DE OE HE HE HE EEE IE EH 
SS2MHWRK DS OCL21 MHPUT WORKAREA 

DC X'0000' RESERVED 

DC X'OO00F' USER DATA LENGTHOF 15 

DC X*0000' RESERVED 

DC C*PRINT’ MESSAGE TYPE FOR APP 
SSZ2MHPRT DC CL8" ° PRINTER NAME 
S32MHSEQ DC Cl2* * SEQ NUMBER OF MSG TO BE PRINTED 
DEE HE HEE HEHE DE DE HE DE DE DE DE IE DE DE DK DE DE DE HE DE DE DE DE IE HE DE DE IK DE HE DE DE DE NK HE DE DEE HE DE HE HE DE DE DE HK HE HE HEE EK EE HEE EEE 
as OTHER CONSTANTS AND WORKAREAS as 
HE 3 3 HEHE DE DE HE HE HEH DK HE HE DE DE I IEE DE DK IEE DE DK HE HE DE DE IK IK IEE EK DE HE DE DE HK HEE IE EE IEE DEE HE DE EH HHH HHH 
STATUS DC X'6CD902' STATUS MESSAGE % R STX 
DVCAVAIL DC X*C240' BSC SENSE FOR DEVICE AVAILABLE 
SDVCAVL DC X'0200" SDLC SENSE FOR DEVICE AVAILABLE 
SS2SEQWK DC H'OQ' SEQ NUMBER WORK AREA 

LTORG 
TITLE ° NDS MESSAGE HANDLER’ 


DE HE HE HK HK HE HE HK HE HE HK HE HE HE IE HE HE HE IE EK HE HE EE KE HK HE HK DE HE DE HE HE HE IE HE HE HE EE DE EE HE EE HEHE DE IE DE EE HK DE EE EEK EE HE KKH HK 


B. (4 BYTES SNA SENSE) CDATA OR DFC COMMAND) 


% NDS MESSAGE HANDLER % 
% % 
WILL HANDLE BRACKETS AND CHANGE OF DIRECTION Ss 
USING HALF DUPLEX FLIP-FLOP PROTOCOL X 
% ¥ 
x INPUT DATA WILL APPEAR AS FOLLOWS: X 
% A. ACCS BB x 
x IU U iB OU U CUSER TEXT) x 
X DRRAF F % 
x x 
% x* 
% % 
¥* ¥% 


SBA, BUF AND BUF ARE PRESENT WITH FORMATTED SCREENS ONLY. 
HEHE DE DE HE HE HE DE DE DE DK DE DE DE HEHE HE IE DE DE HE HEE DE DE I DK HE DE HE DE DE DE IE IK DE DE HE DE DK DE DE HEHE DE IE IE HE HEE DE DE DE DE HEE EH HEE HEHEHE HMR 


NDSMH STARTMH DFC=FULL,LU=YES, BEXIT=NDSBXIT 


INHDR 

PATH X'00',PATHSW RESET PATHSW 

SETSCAN 0 TEST FOR ZERO LENGTH BUFFER 

LTR R15,R15 TEST RC FOR -4 (ZERO LENGTH BUFFER) 
BM NDSZERO DO NOT PROCESS ZERO LENGTH BUFFERS 
LR R3,R15 SAVE ADDR OF DATA-1 FROM SETSCAN 
TEDRH RHIND=C+DFC) GET RH 

CLM R15,1,=X*08' DFC COMMAND 

BE NDNOTDFC BRANCH IF NO 

TEDRH RHIND=C+EXR) GET RH 

CLM R15,1,=X'08' EXCEPTION REQUEST 

BE NDNOEXRI BRANCH IF NO 


x ADD SENSE ERROR TEST IF REQUIRED 
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NDNOEXRI 


NDNOTDFC 


NDSENTR 


SETSCAN 
MSGTYPE 
PATH 

B 
MSGTYPE 
TEDRELS 
B 
MSGTYPE 
HOLD 

B 
MSGTYPE 
B 

CLI 

BNE 
TERRSET 
B 

CLI 

BNE 

CLI 

BNE 
MSGEDIT 
B 


& 
X'83!' 
X'01',PATHSW 
NDSIBF10 
X"'04' 


NDSIBF10 
X'CL! 


NDSIBF10 


NDSIBF10 
LOR32,X*6D!* 
NDSENTR 


NDSIBF10 
1CR3),X*7D!" 
NDSUKWN 
6CR3),X'11' 
NDSDEL3 


SKIP 4 SENSE BYTES TO COMMAND 
CANCEL COMMAND? — 
SET PATH FOR CANCEL 


LUSTAT COMMAND 


START OUTPUT 


SHUTDOWN COMPLETE COMMAND 
STOP OUTPUT 


ALL OTHER DFC 

NO PROCESSING TO DO 

CLEAR KEY ? 

NO, GO TEST FOR ENTER | 
FOR CLEAR MSGGEN ~- DO NOT FORWARD 


ENTER KEY ? 

NO, GO TO UNKNOWN INPUT 

IS 4TH BYTE AN SBA CFORMATTED) 
NO, UNFORMATTED BRANCH 


CCR,»>,€6))),BLANK=NO DEL AID 2(CUR) SBA 2CBUF) 


NDSCODE 


ONLY DATA LEFT, GO PROCESS 


NDSDEL3 MSGEDIT CCR,,,€3)2),BLANK=NO DELETE AID 2(CUR)D 
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PSS tt PSP SPSS tees SES SESS SPSS SSS SES SSS SSS SSS SS SSS SSS SSS SS SSS PSST SSS SS SS 


X DATA STREAM IS NOW USER DATA ONLY. % 
HE HEE DE HE HE HE HEHEHE HCE DE IEE DE DE HE HEE DE DE DEE IE EE DE DE DE DE DE HK HE HEHE HE EEK HE DE DE IE DE DE IE DK DDE EEE DEK DEE DE EE 


NDSCODE INHDR THIS INHDR RESETS MSGTYPE 
CODE 
HE HK IE SEE HE HEE IE DE EDK DE DE IE HEE ESE DE EE EK DE EE EEK SEE EE SE DE DE DE SE DE EE SE DEE HE SE DE SEK DE HE DE DE DE DE HK DE DE DE DE DE DE EK EE EE 
x PROCESS EXTENDED OPERATOR CONTROL COMMANDS | x 
PS SSS S SSP S SSS SS SS SSS SS SS SSS SSS SS SES SSS SSS SS SSS SS SSS SS SSS SSS PSST SSS SS SS 
CLI 1(3),C's' | 
BNE NDSMTYP 
TERRSET 
B NDSMFWD 


NDSMTYP MSGTYPE X 
NDSMFWD FORWARD DEST=C*AOPCTLI' 


B NDSIMG1O : 
HE HE 3 HE HE HE DE HE HEC HE HE DK HE HE DE DH HE HH HK OK HEHE DK HE HE DK HEHE HE HEH IE HH DHE HE DH HE DK HEHE HK OE HE I OH IE OE HE I EK EK HE 
iS PROCESS MESSAGE SWITCH M DEST 4 USER MESSAGE x 
HE HEH HEHE HE HEE EH HEHE DK HEHEHE HE DE DE DE DE HE DED DK IE DEK DE HE DE DE DEE DE NE DE DE DEE DED IE DE DE DK DEE DD DE DE DK DE DE DK DK 3 DE DK HE DE OK EEE 

MSGTYPE M 

FORWARD DEST=*%*,EQA=/ 

TERRSET 

B NDSIBF10 
HEHE HE DE HEHE DE HEE DE IE HE DE HEHE HE DE DK DEE DEK EE DE HEE DE DE HE DEK DK HE DE DK HE DE DK DE DE DE DE HE DE DK DE DE DE DE DK HE DE DK DE DE DK DE DE DE DK DE DE DK DK DE IE IK 
x | PROCESS INQUIRY MESSAGE I 999999 x 


ttt $5.0. 5,5.$.0.2,.5.0.0.0.0.5.¢.0. 5.0.9, 5.0.0.0.5,.0,5.0.0.0,0.0,0.5,.0.0,0,. 0.5.0.0. 0. 0.0.0. 0,5,.0.9.¢.0,.0.0, 0.0.0, 0.0,0,0,0. 0.0.0.0, 00! 
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MSGTYPE I 

FORWARD DEST=C*AS2701" 

B NDSIBF10 
HEHE HE HE DE DE DE DE DE DE DE DE DE DE HE DE EE HEE DE DE DE DE DE DE DK DE DK DE DE DE DE EE DE DE DE DE DE DE DK DK DK HK EE EE EE EEE EEK RRR RR RMRRK 
ss PROCESS NDS MESSAGE x 
HEHEHE HE HE HE HE HE HEHEHE HEE HE HEE DE HE EK KK KK HK HEH KE HEE EE HK KE EK KK HE IE HE HEHE HE HK HE EE HE EE EK KKK HMM KH 

MSGTYPE NDS 

FORWARD DEST=C'A3270I' 

B NDSIBF10 
DHE HE HE HE HEH HE EK EE HEHE HE EH HE DE HEH HEE KK KE EEE DEE EEK EK HK KEE EE EE EE EEE EK HR RRR KKK KKK 
x PROCESS CLOSE MSG TO CLOSE APPLICATIONS * 
HE HE HE HE HEE 3 DEE DD DK HE IEEE HE HE HE EE DE DE DE DE DE DE DK DE DK DK DK DK IEE DED DE DE DE DE DE HK DK DE UK DE SEB DE HK DK DK DEE DE CDE DE I DE DE IE EE 


MSGTYPE CLOSE 
TERRSET 
FORWARD DEST=C'APPLS'* 
B NDSIBF10 
HHH HEHE HE HK HE HK HE HK SEHK HK HK HE IKK HE HK HK KE HK KE KE HE HEE EEK HK KEK HE EK EK HE HH KK KE HEE KKH HHH KH KK HK KKH 
PROCESS OTHER MSGS x 
S.t.0. 0.2.0.0, 0,0,5,.0,.0,9,9,0,0,0,5,5,0,0,5,0,0,0,0,5,5,0,.0,9,5,0,0,0,5,0,0,0,.0,0,5, 0,9, 5,0,0,9, 0,9, 0,0,5,9,9,5,5,9,0, 0.0.5 ,0.9, 0,0. 0.0,5,5 
MSGTYPE , UNIDENTIFIED MESSAGE 
NDSUKWN PATH X'10',PATHSW SET UNKNOWN INPUT PATHSW 
B NDSFMSG 
NDSZERO IEDRELS RELEASE QUEUE ON ERROR TO AVOID 
* MULTIPLE TIME DELAY ELEMENTS FOR 
¥ THIS QUEUE. 
NDSFMSG FORWARD DEST=C'DLQ' THIS MESSAGE IS TO BE CANCELED 
A FORWARD IS REQ'D IF ERRORMSG USED 
NDSIBF10 INBUF 
ITEDRH RHIND=(+CHNGDIR) CK FOR CHG DIR 
CLM R15,1,=X"08' 
BE NDSIMG10 NO 
IEDRELS RELEASE QUEUE 
NDSIMG1O INMSG PATH=CPATHSW,X'O01") CANCEL RECEIVED 
| CANCELMG , CANCEL THE MSG 
INMSG PATH=CPATHSW,X'10") UNKNOWN INPUT AID OR MSG TYPE 
CANCELMG , CANCEL THE MSG 
ERRORMSG ,DATA=NDSMSG04,HEADER=NO 
INMSG , WHATS LEFT SHOULD BE 3270 SDLC 
CANCELMG X'430EC6F/7FF* NOTE: BIT 31 UNDEF ERR NOT CANCELED 
MSGGEN X'0000080000',NDSRSETN,RH=X'O380E0' 
ERRORMSG X*O010405F7FF*,DATA=NDSMSGO1,HEADER=NO 
ERRORMSG X'0200820000', DATA=NDSMSGO02,HEADER=NO 
ERRORMSG X'4002400000', DATA=NDSMSG03,HEADER=NO 
ERRORMSG X*FF7FF7FFOO', DATA=NDXX, DEST=C*ERRQ*, EXIT=ERMSGXIT 
INEND 
OUTHDR BEGIN OUT HEADER PROCESSING 
PATH X'00",PATHSW RESET PATHSW TO IDENTIFY ERRORS 
SETSCAN 0 7 TEST FOR DATA IN BUFFER 
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LTR R15,R15 ZERO LENGTH BUFFER 
BP NDNOZERO- BRANCH IF NO 
IEDSENSE AREA=NDSENSE GET THE SNA SENSE 
LTR R15,R15. TEST RETURN CODE 
BNZ NDSOMGLO NO SENSE AVAILABLE 
% ADD SNA SENSE ERROR TEST IF REQUIRED 
B NDSOMGLO BRANCH | 
NDNOZERO LR R3,R15. SAVE ADDR OF DATA-1 FROM SETSCAN 
| IEDRH RHIND=C(XBB,XEB) TCAM CONTROLS BRACKETS 
LOCOPT TERMMODE,(5) — REG 5 IS ADDR OF TERMMODE OPTION 
™ = 0€5),X"01" | PRINTER 2? 
BO = NDSPRTR YES 


| MSGEDIT (CI,X'F1F31140401D4013',SCAN)) 
NDSDESC MSGEDIT (CRA,,XL1'27')) REMOVE ESC 
3 MSGEDIT (CCRA,,XL1"37")) REMOVE ANY EQTS CIED MSGS USUALLY) 
MSGEDIT (CRA,X'15",X'35"',1)) | 


B NDSOMG10 | | 
NOSPRIR MSGEDIT CCI,X'15",,)) INSERT NL AT START OF PRINTER MSGS 
B NDSDESC 


NDSOMG1O OUTMSG 
HOLD X'0004000013',RELEASE 
HOLD X'0000006000",INTVL=10 RETRY AFTER WAIT | 
HOLD  X*0000010600',INTVL=03 HOLD ON NON RECOV ERRORS 
ERRORMSG X'FF7FF7FF00",DATA=NDXX, DEST=C' ERRQ’, EXIT=ERMSGXIT 


| OUTEND — , 
NDXX DC AL1(€25) , 
DC C'ERROR= XXXXXXXX | 
NDSMSGO1 DC AL1(642) . MESSAGE LENGTH 
DC C'N32-01 TRANSMISSION ERROR, PLEASE RE-ENTER’ 
NDSMSGO2 DC AL1(049) MESSAGE LENGTH 
DC C'N32-02 SYSTEM UNDER STRESS, PLEASE RE-ENTER LATER’ 
NDSMSGO3 DC AL1(34) MESSAGE LENGTH 
| DC C'N32-03 DESTINATION ERROR, RE-ENTER’ 
NDSMSG04 DC — AL1C30) MESSAGE LENGTH 
DC C'N32-04 UNKNOWN INPUT, RE-ENTER’ 
NDSRSETN DC AL1(08) SDLC 3277 CLEAR SCREEN 
Dc X'F5031140401D4013' 
NDSENSE DC XL4¢"'00000000' SNA SENSE 
| LTORG 
TITLE * | | TSO MESSAGE HANDLER* 


TSOMH = STARTMH TSOMH=YES,STOP=YES,CONV=YES,LC=IN,DFC=FULL,LU=YES, xX 

ALTMH=MHS3270,BEXIT=NDSBXIT 

INHDR 

CODE 

LOGON. 

IEDHALT CHARS=C'LOGOFF', FLUSH=YES 

IEDHALT CHARS=X"939687 968686", FLUSH=YES 

INBUF 
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CUTOFF 3800 

CARRIAGE 

SPFSCRN 

SIMATTN 

INMSG 

ATTEN 

HANGUP 
MSGGEN X‘'1000000000",C*"IKJ54011I TSO IS NOT ACTIVE’ 
MSGGEN X*'8000000000',C*°IKJ54012A ENTER LOGON -' 
MSGGEN X‘'4000000000",C*IKJ54013I LOGON FAILED, INVALID COMMAND" 
MSGGEN X'2000000000',C*IKJ54014I TERMINAL IS NOT USABLE WITH TSO" 
MSGGEN X'0000200000°,C'IKJ54015I TSO MSGS CANNOT REACH THIS TERMINAL' 
MSGGEN X'0800000000',C'IKJ54016I MAXIMUM USERS LOGGED ON, TRY LATER’ 
MSGGEN X'0000004000°,C*'IKJ540174 TERMINAL ERROR, REENTER INPUT’ 
MSGGEN X'0100000000*°,C*IKJ54018A MESSAGE TOO LONG, REENTER INPUT’ 
MSGGEN X*'0200000000",C*IKJ54020A MESSAGE LOST, REENTER INPUT’ 
MSGGEN X'0000800000',X*0614¢5AC915' 
MSGGEN X'0000400000°,X'06145AC415" 
MSGGEN X'0000120000',X"06145A15" 
MSGGEN 0,X'FF' 

INEND 

OUTHDR 

TEDRH RHIND=CXBB) 

OUTBUF 

SP FMCHK 

CODE 

OUTMSG 

ATTEN 

HANGUP 
MSGGEN X*0000800000",X'06145AC915! 
MSGGEN X'0000120000',X'06145A15' 
MSGGEN X'0000200000',C'IKJ54015I TSO MSGS CANNOT REACH THIS TERMINAL* 
MSGGEN 0,X'FF' 

OUTEND 

LTORG 
TITLE ° ERRORMSG EXIT ROUTINE’ 
* R1 HAS ADDR OF HEADER BUFFER 
* R5 HAS ADDR OF ERRORMSG TEXT 
% : 
* THIS ROUTINE WILL SEND A MESSAGE TO THE ERR@ THAT CONTAINS 
* THE CONTENTS OF THE MER IN TRANSLATED FORMAT 


USING %,15 
ERMSGXIT LR 4,1 PUT ADDR OF BUFFER IN 4 
L 44,1204) GET PLCB ADDR 
L 44,9204) GET SCB ADDR 
LA 4,16(04) | LOAD ADDR OF MER 
LA 5,75) POINT TO 1ST POS TO PUT MER 
BAL 6,CNVT | CONVERT BYTE 1 
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BAL 6,CNVT | an CONVERT BYTE 2 


BAL 6,CNVT 3 CONVERT BYTE 3 
BAL 6,CNVT CONVERT BYTE 4 
BR 14 RETURN 

CNVT SR 7,7 | CLEAR Rl 
Ic 7,004) INSERT CHAR TO TRANSLATE 
LA 2,15 INSERT X'OF* 
NR 2,7 | PUT RIGHT 4 BITS IN REG 2 
SRL 74 | SHIFT LEFT 4 BITS TO LOW ORDER 
STC 7,005) | STORE IN ERROR MSG 
STc 2105) STORE IN ERROR MSG. 
TR 001,5),HEXTRAN | TRANSLATE HEX DIGIT. 
TR 1€1,5),HEXTRAN TRANSLATE HEX DIGIT 
LA 4,104) BUMP POINTER BY 1 
LA 5,205) . oe BUMP POINTER BY 2° 
BR 6 | RETURN 

HEXTRAN DC C¥01234567389ABCDEF’ HEX TRANSLATE TABLE 
LTORG 

TITLE * BIND EXITS' 

BINDXHH CSECT | 3 
USING *,15 


NI 5(4),256-X'20" NO BRACKETS 
NI 604),256-X'CO" SET FDX 


LA 15,2 RESOLVE CONTENTION 
BR 14 RETURN | 
DROP 15 | 
NDSBXIT CSECT 
| USING *,15 
STM 0,15,SVE 
LR 12,15 
USING NDSBXIT,12 
DROP 15 
ITEDLSCR MOVE TTE SCREEN SIZE TO BIND 
LM 0,14,SVE 
BR 14 
SVE DS 16F 
LTORG 


ACF/TCAM BIND PARAMETERS 


TITLE ' BIND IMAGE TABLES’ 


TEDBTAB CBI=(BI3767,EMU3790,BTCH3790,B13770A,BI3270NB) 
NDS3278 IEDBENT COMPROT=XL2'3080",PRIPROT=X'B1',SECPROT=X'90', X 
TSPROF=X'03',FMPROF=X'03', TSUSAGE=XL6'000087F30000', x 
FMTYPE=X'01", x 
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LUPROF=X'02',PRESERC=XL11'0000000000185018507F00' 


NDS8789 IEDBENT COMPROT=XL2'3080',PRIPROT=X'"B1*,SECPROT=X'90", X 
TSPROF=X'03',FMPROF=X'03', TSUSAGE=XL6'000087C60000', X 
FMTYPE=X'O01"', X 


LUPROF=X'01',PRESERC=XL11'"O000000E100000000000000' 
ENTRY IEDTSOBO 
TEDTSOBO IEDBENT COMPROT=XL2°2000',PRIPROT=X'21',SECPROT=X'40', 
TSPROF=X'02",FMPROF=X'02*, TSUSAGE=XL6'010000000100', 
LUPROF=X*'00*,PRESERC=XL11‘'00°,FMTYPE=X'01", 
LOGON=C* LOGON ',USRDATA=C' . 
ENTRY IEDTSOBL 
IEDTSOB1L IEDBENT COMPROT=XL2'3040",PRIPROT=X"A1',SECPROT=X'90"', 
TSPROF=X*"03',FMPROF=X'03", TSUSAGE=XL6'010085850100', 
LUPROF=X'01",PRESERC=XL11'00',FMTYPE=X'01', 
LOGON=C* LOGON ',USRDATA=C'! ’ 
ENTRY IEDTSOB2 | 
TEDTSOB2 IEDBENT COMPROT=XL2‘'3080",PRIPROT=X"B1",SECPROT=X'BO', 
TSPROF=X'03",FMPROF=X'03',TSUSAGE=XL6'000085850000', 
LUPROF=X'02",FMTYPE=X'01', 
PRESERC=XL11°'0000000000185018507E00', 
LOGON=C’ LOGON *,USRDATA=C! : 
ENTRY IEDTSOB8 
TEDTSOBS8 IEDBENT COMPROT=XL2‘'3080',PRIPROT=X'B1',SECPROT=X'90', 
TSPROF=X'03',FMPROF=X'03", TSUSAGE=XL6‘°000087F380000', 
LUPROF=X'02',PRESERC=XL11‘'0000000000185018507F00'", 
FMTYPE=X'O1', 
LOGON=C' LOGON *,USRDATA=C' 
IEDBEND TSO=NO,TOTE=NO 


«x KK mM KK 


mM MK XK 


x KK XK 
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ACF/TCAM USS TABLES 


USS3270 
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PRINT NOGEN 


TEDUTAB 
TEDUVERB 
ITEDUPARM 
TEDUVAL 
TEDUVAL 
ITEDUPARM 
ITEDUVAL 
IEDUVAL 
ITEDUVERB 
TEDUPARM 
TEDUVAL 
ITEDUVAL 
IEDUPARM 
TEDUVAL 
TEDUVAL 
IEDUVERB 
ITEDUPARM 
ITEDUVAL 
TEDUPARM 
TEDUVAL 
TEDUVAL 
ITEDUPARM 
TEDUVAL 
TEDUVAL 
TEDUVERB 
TEDUPARM 
TEDUVAL 
TEDUPARM 
TEDUVAL 
TEDUVAL 
TEDUPARM 
TEDUVAL 
TEDUVAL 
ITEDUVERB 
TEDUPARM 
TEDUVAL 


~IEDUVAL 


ITEDUPARM 
TEDUVAL 
ITEDUVAL 
ITEDUVERB 
ITEDUPARM 
IEDUVAL 
TEDUVAL 


GEN=NO 
INITS, CMD=INITS 
INLU 


»C*MHS3270' 
INMODE 


»C*BI3270NB! 
TCAM, CMD=INITS 
INLU 


»C'*MHS3270' 
INMODE 


»C*BI3270NB" 

LOGON, CMD=INITS,UDATLEN=14 
INUDATA 

INLU 


»C*TSOMH' 
INMODE 


»C'TEDTSOBO’ 
TS50,CMD=INITS,UDATLEN=14 
INUDATA 

INLU 


»C*TSOMH' 
INMODE 


»C*IEDTSOBO’ 
IMS,CMD=INITS 
INLU 


»C'IMS' 
INMODE 


»C*BI3270NB* 
CICS,CMD=INITS 
INLU 


»C'CIcs! 
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*K 


USSNDS 


IEDUPARM 
IEDUVAL 
TEDUVAL 
IEDUVERB 
ITEDUPARM 
ITEDUVAL 
TEDUVAL 
IEDUVERB 
ITEDUPARM 
IEDUVAL 
IEDUVAL 
IEDUVERB 
IEDUPARM 
IEDUVAL 
IEDUVAL 
IEDUVERB 
IEDUPARM 
ITEDUVAL 
ITEDUVAL 
IEDUEND 
END 


INMODE 


»C*BI3270NB! 
TERMS, CMD=TERMS 
TMLU 


»C*MHS3270' 
LOGOFF, CMD=TERMS 
TMLU 


»C*TSOMH’ 
TERMI, CMD=TERMS 
TMLU 


»C*IMS* 
TERMC, CMD=TERMS 
TMLU 


»C*CICS' 


PRINT NOGEN 


IEDUTAB 
IEDUVERB 
IEDUPARM 
IEDUVAL 
ITEDUVAL 
IEDUPARM 
IEDUVAL 
ITEDUVAL 
IEDUVERB 
IEDUPARM 
TEDUVAL 
IEDUVAL 
IEDUPARM 
ITEDUVAL 
ITEDUVAL 
IEDUVERB 
IEDUPARM 
LEDUVAL 
IEDUPARM 
ITEDUVAL 
IEDUVAL 
LEDUPARM 
IEDUVAL 
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GEN=NO 
INITS,CMD=INITS 
INLU 


»C*NDSMH! 
INMODE 


»C'NDS3278' 
TCAM, CMD=INITS 
INLU 


»C*NDSMH'* 
INMODE 


»C"NDS3278' 

LOGON, CMD=INITS,UDATLEN=14 
INUDATA 

INLU 


»C*TSOMH® 
INMODE 
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* 


USS3767 
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TEDUVAL ,C‘IEDTSOBS’ © 
IEDUVERB 1TS0,CMD=INITS,UDATLEN=14 
IEDUPARM INUDATA | 
ITEDUVAL 

IEDUPARM INLU 

IEDUVAL 

IEDUVAL ,C*TSOMH' 
IEDUPARM INMODE 

IEDUVAL 

IEDUVAL ,C*IEDTSOB8' 
IEDUVERB IMS,CMD=INITS 
IEDUPARM INLU 

IEDUVAL 

IEDUVAL ,C'IMS? 
IEDUPARM INMODE 

IEDUVAL 

IEDUVAL ,C*NDS3278' 
IEDUVERB CICS,CMD=INITS 
IEDUPARM INLU 

IEDUVAL 

IEDUVAL ,C'CICS® 
IEDUPARM INMODE 

IEDUVAL 

IEDUVAL ,C'NDS3278! 
IEDUVERB TERMS, CMD=TERMS 
IEDUPARM TMLU 

IEDUVAL 

IEDUVAL ,C*NDSMH!* 
IEDUVERB LOGOFF, CMD=TERMS 
ITEDUPARM TMLU 

IEDUVAL 

IEDUVAL ,C*TSOMH’ 
IEDUVERB TERMI, CMD=TERMS 
TEDUPARM TMLU 

ITEDUVAL 

IEDUVAL ,C'IMS' 
IEDUVERB TERMC,CMD=TERMS 
IEDUPARM TMLU 

ITEDUVAL 

IEDUVAL ,C'CICS’ 
IEDUEND 

END 


PRINT NOGEN 
IEDUTAB GEN=NO 
IEDUVERB INITS,CMD=INITS 
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TEDUPARM 
TEDUVAL 
ITEDUVAL 
ITEDUPARM 
TEDUVAL 
TEDUVAL 
TEDUVERB 
ITEDUPARM 
ITEDUVAL 
TEDUVAL 
TEDUPARM 
TEDUVAL 
TEDUVAL 
IEDUVERB 
ITEDUPARM 
IEDUVAL 
ITEDUPARM 
TEDUVAL 
ITEDUVAL 
ITEDUPARM 
ITEDUVAL 
TEDUVAL 
LEDUVERB 
TEDUPARM 
IEDUVAL 
TEDUPARM 
TEDUVAL 
TEDUVAL 
TEDUPARM 
IEDUVAL 
TEDUVAL 
TEDUVERB 
ITEDUPARM 
TEDUVAL 
IEDUVAL 
TEDUPARM 
ITEDUVAL 
TEDUVAL 
ITEDUVERB 
TEDUPARM 
TEDUVAL 
TEDUVAL 
ITEDUPARM 
ITEDUVAL 
ITEDUVAL 
IEDUVERB 
LTEDUPARM 
IEDUVAL 
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INLU 


»C'MH3767' 
INMODE 


»C"BI3767' 
TCAM, CMD=INITS 
INLU 


»C'MH3767' 
INMODE 


»C*BI3767' 
LOGON, CMD=INITS,UDATLEN=14 
INUDATA 


INLU 


»C*TSOMH’ 
INMODE 


»C'IEDTSOBIL* 
TSO,CMD=INITS,UDATLEN=14 
INUDATA 


INLU 


»C*TSOMH® 
INMODE 


»C'ITEDTSOBL’ 
IMS,CMD=INITS 
INLU 


»C'IMS* 
INMODE 


»C*BI3767' 
CIcS,CMD=INITS 
INLU 


»C'Ccics’ 
INMODE 


,C'BI3767" 
TERMS , CMD=TERMS 
TMLU 
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ITEDUVAL 
TEDUVERB 
IEDUPARM 
IEDUVAL 
ITEDUVAL 
TEDUVERB 
ITEDUPARM 
TEDUVAL 
TEDUVAL 
ITEDUVERB 
TEDUPARM 
TEDUVAL 
TEDUVAL 
TEDUEND 
END 


*K 


»C'MH3767! 
LOGOFF, CMD=TERMS 
TMLU 


»C*TSOMH' 
TERMI, CMD=TERMS 
TMLU 


»C'IMS' 
TERMC, CMD=TERMS 
TMLU 


»,C*CICS' 


PRINT NOGEN 


USS3770 IEDUTAB 
IEDUVERB 
TEDUPARM 
TEDUVAL 
TEDUVAL 
IEDUPARM 
TEDUVAL 
TEDUVAL 
ITEDUVERB 
TEDUPARM 
TEDUVAL 
TEDUVAL 
IEDUPARM 
TEDUVAL 
TEDUVAL 
TEDUVERB 
IEDUPARM 
TEDUVAL 
IEDUPARM 
TEDUVAL 
TEDUVAL 
ITEDUPARM 
TEDUVAL 
TEDUVAL 
IEDUVERB 
IEDUPARM 
TEDUVAL | 
TEDUPARM 
TEDUVAL 


PAGE 6-32 


GEN=NO 
INITS,CMD=INITS 
INLU 


»C*SNAMH! 
INMODE 


»C'BI3770A' 
TCAM, CMD=INITS 
INLU 


»C*SNAMH’ 
INMODE 


»C*BI3770A" 

LOGON, CMD=INITS,UDATLEN=14% 
INUDATA 

INLU 


»C*TSOMH’ 
INMODE 


»C'ITEDTSOBL’ 
TSO,CMD=INITS,UDATLEN=14 
INUDATA | 


INLU 
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TEDUVAL 
IEDUPARM 
TEDUVAL 
TEDUVAL 
ITEDUVERB 
ITEDUPARM 
TEDUVAL 
TEDUVAL 
IEDUPARM 
ITEDUVAL 
ITEDUVAL 
ITEDUVERB 
IEDUPARM 
TEDUVAL 
IEDUVAL 
IEDUPARM 
TEDUVAL 
TEDUVAL 
TEDUVERB 
TEDUPARM 
ITEDUVAL 
TEDUVAL 
TEDUVERB 
TEDUPARM 
TEDUVAL 
TEDUVAL 
TEDUVERB 
TEDUPARM 
TEDUVAL 
TEDUVAL 
LEDUVERB 
ITEDUPARM 
ITEDUVAL 
TEDUVAL 
TEDUEND 
END 
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»C*TSOMH’ 
INMODE 


»C'ITEDTSOBL’ 
IMS,CMD=INITS 
INLU 


»C*IMS' 
INMODE 


»C*BI3770A' 
CIcS,CMD=INITS 
INLU 


»C'CICS" 
INMODE 


»C*BI3770A" 
TERMS , CMD=TERMS 
TMLU 


»C*SNAMH* 
LOGOFF, CMD=TERMS 
TMLU 


»C*TSOMH' 
TERMI, CMD=TERMS 
TMLU 


»C'IMS* 
TERMC, CMD=TERMS 
TMLU 


»C'crcs' 
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CHAPTER 7 


Two NCP samples are included. The first NCP source 
operate on an IBM 3704. The larger NCP illustrates various 

device types. All supported line disciplines are illustrated 
based on actual experience and industry recommendations. 
| cuntained in 


the OS/VS JCL for the assembly of these NCP"s are 
appropriate section of this guide, 


REFERENCES 
IBM 3704 And 3705 Communicstions Controllers 
Network Control Program/VS Generstion And Utilities 
Guide And Reference Manual (Cfor OS/VS And DOS/VS 
VTAM Users) 


Teleprocessing Preinstallation Guide For 
IBM 3704 And 3705 Communication Controllers 


IBM 3705 Advanced Communications Function for 
Network Control Program/VS Generation And Util#ties 
Guide And Reference Manual 

DOS/VS VTAM System Programmers Guide 

ACF/VTAM System Programmers Guide (DOS) 

ACF/VTAM Installation Guide (DOS) 

ACF/VTAM Reference Summary (DOS) 

OS/V¥S1 VTAM System Programmer's Guide 

OS/VS VTAM Reference Summary 

OS/VS2 SVS VTAM System Programmer's Guide 

OS/VS2 VIAM System Programming Library: VTAM 

ACF/VTAM System Programmers Guide 

ACF/VTAM Installation Guide 
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SAMPLE NCP SOURCE 


> SAMPLE NCP SOURCE 


is designed to 


mixes of 
and sre 


The DOS/VS or 


the 


GC30-3008 


GC30-3020 


$€30-3116 
GC27-6957 
$C38-0268 
$€38-0270 
SX27-3022 
GC27-6996 
GX27-0034 
GC27-0049 
GC28-0688 
$€38-0258 


5C38-0269 
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SAMPLE NCP SOURCE 


ACF/VTAM 
OS/VS 
Os/VS 
OS/VS 


OS/VS 


Reference Summary 

TCAM Concepts and Applications 
TCAM System Programmer's Guide 
TCAM Macro Reference Guide 


TCAM Application Programmer's Guide 


OS/VS TCAM Installation and Migration Guide 


OS“VS TCAM Program Reference Summary 


TCAM Migration To NCP and SNA Featuring IBM 3790 


ACF/TCAM 
ACF/TCAM 
ACF/TCAM 
ACF/TCAM 
ACF/TCAM 
ACE/TCAM 
ACF/TCAM 


ACF/TCAM 
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General Information 

Concepts and Planning 

System Programmer's Guide 

Macro Reference Guide 

Application Programmer's Guide 
Installation and Migration Guide 

MSNF Program Reference Summary Supplement 


Program Reference Summary 
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$X27-3021 


GC30-2049 


- 6C30-2051 


6C30-2052 


GC30-3036 


- GC30-3039 


GY30-1024 
6622-9100 
GC30-2050 
6C30-3049 
§C30-3117 
§C30-3118 
$C30-3119 
$C30-3121 
LD21-0003 


LY30-3037 
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SAMPLE NCP FOR 3704 
Z-1 > SAMPLE NCP FOR 3704 


PR Ti 


PETTITT TEETTITEPETTTETEETEST TEEPE CTE ETE LETT TTT TTT eee 


x NCP 5 ONLY, NOT SUPPORTED BY ACF/NCP/VS | | pS 
¥ SOURCE FOR NCP GENERATION CALL VTAM LEVELS AND TCAM 10) % 
x SUPPORTS BATCH AND INQUIRY FOR SDLC PHYSICAL UNITS | x 
x THIS GENERATION IS FOR IBM 3704 x 


St .t.¢.¢,.¢,.2.2,5.0.0.0.0.0.2,0.0.0.0,.2.0.2.0,.2.0.0.0.0.0.0.0,0.0.0.0,0,0.0.0.0.0,0.0,. 0, 0.0.0.0. 0.0.2.0. 0.0.0.0.0,.0,2.0.0,0. 5.0.0.0. 0. 0.02.54: 


HEH HE HEHE HE IK HEHE HE HE DE HE HE HE HE DEK HK EE KE HE EE EE EE EE EE EK HEE HE EE EEK EE EE EK EEE EE EE HE EE EK EE EEE EK 


¥ 
% PCCU SPECIFICATIONS - OS/VS CVTAM ONLY) x 
x =. % 


HEHE HEHEHE HEHE HEHEHE DEDEDE HEH HEH HC HEHE HK IE DEDEDE HC HEHEHE HE DDE HEHE HEE HEHE DEDEDE DED DD 3 HE HE EDD D3 CHE IEE OE I I IEE 


NCPSTART PCCU CUADDR=07F, 3704 CONTROL UNIT ADDRESS X 
AUTODMP=NO, PROMPT BEFORE DUMPING NCP xX 
AUTOIPL=YES, AUTOIPL AND RESTART x 
DUMPDS=NCPDUMP, AUTODUMP REQUESTED X 
INITEST=YES NCP INITIALIZATION TEST 


DEH HOE HE HEHE HEHE DE HE HEHEHE HE HEHEHE EEK DHE HEHE HC HEH HED DDK DI HC HD DO DC 


* % 
x PCCU SPECIFICATIONS FOR DOS/VS CVTAM ONLY) x 
% % 


HE HE IE HE IEE HE HK HK HK IE EK EK EK EE HE HK IE HE HE EK EEK EK HK HK HK HK HE KK EE HK HK HEHE HH KH KKK HK KKK 


NCPSTART PCCU CUADDR=07F, 3704 CONTROL UNIT ADDRESS X 
AUTODMP=NO, PROMPT WHEN NCP FAILS X 
AUTOIPL=YES, NO AUTOIPL AND RESTART X 
DUMPDS=SYS007, DS FOR DUMP OPTION X 
INITEST=NO, NO INITIAL TEST X 
NCPLUB=SYS008 LOAD MODULE NAME 
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SAMPLE NCP FOR 3704 


HEHE HEHE HH HEHEHE HEH HHH HE HH HEHE HEHE HEHE HEHE HEHEHE HIE HEHEHE HEHEHE HE IE HH HE DHE HK HEHEHE HK HEHE EK KKK HHH 


X 


x 
% 


HEH HEHE HE HE HE HE HE HE EE HE KE HE EE EE HK EE EEE EE HK KE EE HK KE EE EE EK KE HK EK KE EK HK HE HK EE KK EK HK KKK 


% BUILD MACRO SPECIFICATIONS FOR OS  & 


NCPBUILD BUILD MAXSUBA=3, 


PAGE 7-% 


LOADLIB=NCPLOAD, 


OBJLIB=NCPBAT, 
LESIZE=320, 
TYPSYS=OS, 
QUALIFY=SYSI1, 
UNIT=SYSDA, 
MEMSIZE=64, 
TYPGEN=NCP, 
ABEND=YES, 
ANS=YES, 
ASMXREF=NO, 
BFRS=64, 
CHANTYP=TYPEIL, 
ERASE=NO, 
ENABLTO=2.2, 
JOBCARD=MULTI, 
MODEL=3704, 


NEWNAME=NCPBAT, 


OLT=YES, 
SLODOWN=12, 
SUBAREA=3, 
TRACE=CYES,10) 


LIBRARY FOR ASSEMBLER OUTPUTS 


x 


x 
x 


MUST BE SAME AS IN VTAM STR DEF 
LIBRARY FOR NCP LOAD MODULE 


REGION SIZE FOR LINK-EDIT 

OS USED FOR STAGE 2 

1ST LEVEL QUALIFIER 

DATA SET FOR ASSEMBLY 

3704 STORAGE SIZE IS 64K BYTES 
NCP ONLY | 

ABEND FACILITY INCLUDED 
AUTOMATIC NETWORK SHUTDOWN (DEFAULT) 
NC ASSEMBLER CROSS-REFERENCE 
NCP BUFFER SIZE 

PRIMARY CHANNEL ADAPTER 

DO NOT ERASE BUFFERS (DEFAULT) 
LEASED LINE ONLY (DEFAULT) 
JOBCARDS PROVIDED BY NCP GEN 


NAME OF THIS LOAD MODULE 

ONLINE TEST AVAILABLECDEFAULT) 
SLOWDOWN WHEN 12% OF BUFFERS AVAIL 
SUBAREA ADDRESS = 3 

10 ADDRESS-TRACE ENTRIESCDEFAULT) 


MM KKK KK MR KR KR KR KK KKK KK KK KK 
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SAMPLE NCP FOR 3704 


3E DE HE DE DE HE DE DE DEE DE SE DE EEE DE EE SE EE HEE EE HK EK HE EE HE KE EEE HK EE EE EK EEK EE EEE EE EK KEKE EEE HK HK RK KH 


% * 
% BUILD MACRO SPECIFICATIONS DOS x 
% * 


HE HEHE HE HK HE HK DEE DE EE EH EK EK EK EEK EE EE KE EK EE EE KE EE EEE EEK EK DE HE EE EE EE EK EE EE EEE EER KX 


NCPBUILD BUILD MAXSUBA=3, MUST BE SAME AS IN VTAM STR DEF Xx 
TYPSYS=DOS, DOS USED FOR STAGE 2 X 
MEMSIZE=64, 3704 STORAGE SIZE IS 64K BYTES xX 
TYPGEN=NCP, NCP ONLY x 
ABEND=YES, ABEND FACILITY INCLUDED X 
ANS=YES, AUTOMATIC NETWORK SHUTDOWNCDEFAULT) X 
ASMXREF=NO, NO ASSEMBLER CROSS-REFERENCECDEFAULTX 
BFRS=64, NCP BUFFER SIZE X 
CHANTYP=TYPEIL, PRIMARY CHANNEL ADAPTER X 
ERASE=NO, DO NOT ERASE BUFFERS CDEFAULT) X 
ENABLTO=2.2, LEASED LINE ONLYCDEFAULT) xX 
JOBCARD=MULTI, JOBCARDS PROVIDED BY NCP GEN X 
MODEL=3704, X 
NEWNAME=NCPBAT, NAME OF THIS LOAD MODULE X 
OLT=YES, ONLINE TEST AVAILABLE CDEFAULT) X 
SLODOWNN=12, SLOWDOWN WHEN 12% OF BUFFERS AVAIL X 
SUBAREA=3, SUBAREA ADDRESS = 3 X 


TRACE=CYES,10) 10 ADDRESS-TRACE ENTRIESCDEFAULT) 


DEE HE HK EK HK HK HK HK EH KEK EE KK EE IE KE EE EK HE HE KE EE EE KK EK KKK KH KR EK KH KKK RH K KK 


x x 
% SYSCNTRL OPTIONS FOR VTAM OF TCAM % 
x % 
3 NOTE THAT OPERATGR CONTROLS ARE NOT INCLUDED. x 
% af 
3 HEHE HE HK HE EE EEE DE DE DE DE DE DE DK DK DE DK HK DE NEE EE EE OK DK EK HK IE HE DE OEE DEK HE HE HE HEHE HEHE HEH HE HE HEHEHE HH 
NCPSYSC SYSCNTRL OPTIONS=(MODE, X 
RCONTRL,RCOND,RECMD,RIMM, ENDCALL, X 
BHSASSC) 
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SAMPLE NCP FOR 3704 | 


HARK AK KK KAN KAKA KK AA HK KAA KK HK HK KK HK HA HK_ KKH KKK KKK KKK HK KKH HK KA H KKK K KA KK KA KK KKK 


® HOST MACRO SPECIFICATIONS OS VTAM x 
x UNITSZ TIMES MAXBFRU MINUS BFRPAD EQUALS MAX MESSAGE SIZE BA 
x FOR INBOUND MESSAGES x 


HE IORI OKI III III I ICH IER IDE III III ICI ICICI III IIE 


NCPHOST HOST INBFRS=5, INITIAL 3704 ALLOCATION X 
_MAXBFRU=64, | VTAM BUFFER UNIT ALLOCATION xX 
UNITSZ=84, | | X 
BFRPAD=28, VTAMCOS=28, DOS=15, ACF=0), EXTM=2 xX 
DELAY=.2;  .2@ SECOND ATTENTION DELAY X 
STATMOD=YES, YES VTAM, NO FOR EXTM X 
TIMEQUT=(€120.0) AUTO SHUT DOWN IF NO RESP IN 120SEC 


DE DE HE DE HEHE HE DE IE EE EE HE EE DE HE DE DE IE DE DEE EE EE SE DEE EE EK DE DE EE DE DE EE EE NE HEE EK EE EE EK KE EE EOE EE EEK KEK 


x HOST MACRO SPECIFICATIONS DOS/VS * 
x DOS VTAM REQUIRES BFRPAD=15 | % 
x | ¥ 


HEHE HEHEHE HEI HEHEHE IK HEHE HED IK HEHEHE HEHE HED HE HDD IC DO HEH BD HED DO DK WE CD DO IO 


NCPHUS’ hOST INBFRS=5, INITIAL 3704 ALLOCATION X 

MAXBFRU=6, VTAM BUFFER UNIT ALLOCATION X 

UNITSZ=88, VTAM BUFFER SIZE MUST BE MULT OF 8 X 

BFRPAD=15, DOS VTAM 15, EXTM=2 X 

DELAY=.5, -5 SECOND ATTENTION DELAY x 

STATMOD=YES, YES FOR DOS VTAM, NO FOR EXTM X 
TIMEOUT=C(120.0) AUTO SHUT DOWN IF NO RESP IN 120SEC 


ptittteretirteretittetetertritttiititttisttitttetttetttittettte ress eee: 
X CSB MACRO SPECIFICATIONS x 
x x 
HE EE HEHE SE HEHE DE DE DE DE DE DE DE IE DE DE DE DE DE DK DED DK DE DE DE DE HEE DE DE DE DE DK DK DK DK DE DK DE DE DE DEE 3 ED DE DE DE DE DE DE DK DK DK DK 3K DE DEO OE OE DE OK OEE 


NCPCSB CSB  SPEED=(134), | BUS MACH CLOCK X 
| MOD=0, | SUANNER ADDRESS 000 TO O1F X 
TYPE=TYPE1 TYPE 1 COMM SCANNER (DEFAULT 
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SAMPLE NCP FOR 3704 


St S.2,.2.2.2,2.¢.0.0.0 0.0.0,.0.0,. 0.0. 0.5,.0. 0.0.0.0. 0.0.2.5. 5.5.5. 5.5.5.2,¢, 5.5. 9.0.5,.5,9,9,.¢,9,0,0,9,9,0,.0,5,0,0,9,5,0,5,0,5,0,5,9,0, 5.945 


% % 
% SPECIFICATIONS FOR SDLC LEASED LINES % 
¥ GROUP MACRO SPECIFICATIONS ¥ 
x %* 


HE HE HEHE HE HE DE HE HE HEE HEHE HE HE DE SE IE EE HEE IE DE DE KE DE DE DE DE DE HE DE SE SE DE DE HE HE SE DE SE DE DE DE HE DK DE DE DE DE IE SE DK DE DE DE DE DE DE DE DE DE DE DE DE DE EEE 


SDLCGP1 GROUP LNCTL=SDLC, SYNCHRONOUS DATA LINK X 
DIAL=NO, REQUIRED FOR LEASED LINE x 
REPLYTO=1.0, USE DEFAULT X 
TYPE=NCP NCP ORLY 


DE HK HE KE HE HE HE HE HE HK SE EE HE HK HE KE SE HE HE HE HE HE HK HE HK KH KE HK KE HK HE HE EH KE HH HK HK HK HK HK HK HH KK HH HH HH HK HHH HK HK HK HK HK 


LINE MACRO SPECIFICATION - FULL-DUPLEX, LEASED 
MAY BE USED FOR 3790, 3600, OR 3659 


NOTE: LINE SPEED MAY BE RAISED TO 2400 FOR 
ALL PHYSICAL UNITS AND TO 4800 FOR 3600 AND 3650 
WITHOUT DOING A NEW GEN OF NCP. 
RETRIES VALUE FOR LINE SHOULD BE GREATER THAN 30 
SECONDS AND LESS THAN ONE MINUTE FOR 3650. 


KK KK K K KK K K K 
KK KK K K OK OK K OK OK 


HE HE HE HE HK HEHE HE HEH HE HE HE DE HE HE HK DE HE HE HE HE HE EE HE KE HE EK HE DEE HEE HE HE DE IK EE EE HK HK HE HE EK HE KK HK HK HH HK HEHE HK HEH EK HE HK HK 


SDLC1 LINE ADDRESS=C000), TRANSMIT AND RECEIVE ADDRESS X 
| DUPLEX=HALF, REQUIRED FOR SWITCHED BACKUP X 


SDLC1 LINE ADDRESS=(000,001), TRANSMIT AND RECEIVE ADDRESSES X 
DUPLEX=FULL, MODEM IS STRAPPED FOR FULL DUPLEX X 
SPEED=1200, SPEED MAY BE HIGHERCSEE NOTES) X 
NRZI=YES, SPECIFY YES ONLY IF REQUIRED X 
NEWSYNC=NO, CHECK MODEM REQUIREMENTS X 
CLOCKNG=EXT, MODEM PROVIDES CLOCKING X 
POLLED=YES, xX 


RETRIES=(5,10,4) 5 RETRIES PER RECOVERY SEQUENCE 
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SAMPLE NCP FOR 3704 


oterettettetrreettsrtteitetsretsiitittteti re ttett eter eee teres te eee eg: 


x SERVICE ORDER FOR SDLC LINK | a ¥ 
% x* 


HEHE DE HE HE HEHE DE HEHE DE DE DE EE HE DE IE NE DK DE DEE DK DK DC DE DE IK DE DE DE DE DK DE DE DEE DE DK DK DE DE DE DE DE DE DE DE DE DE DE EE DE EE EK IE EEE EEK 
SERVICE ORDER=(CL3790) 


HEHE HEHEHE HE HE HK HE HK EK EE HEE HE EE HE OE HE EH EK DE EE EE EE KE OE IKE HK DEK EK HEE EE DE OE DEE DEE EE HEE EE EE KEK HK 


x x 
¥ PU MACRO SPECIFICATION FOR 3790 LINK . 7 x 
x x 


Lt St. 2.0.5.2, t.0,0,5,0,. 0.0.2.0, 0,0,5.0,0,0,0,0,0,0,0,0,5,0,0,0,5,5,.0,5,9,5,.0,0,0,5,.9,5,0,5,0,5,0, 0,5, 0,5,0,0,5,0,0,0,0,9,5,5,5,0, 5.9.0 5,50) 


CL3790 PU ADDR=Cl, PU ADDRESS = A CEBCDIC) X 
MAXDATA=265, MAXIMUM AMOUNT OF DATA X 
PUTYPE=2; X 
PACING=(€1,1), MAX FOR 3790 X 
VPACING=(2,1), TWICE PACING VALUE x 
PASSLIM=7, EQUAL TO MAXOUT X 
MAXOUT=7, MAX PATH INFO UNITS BEFORE RES Xx 


ISTATUS=INACTIVE ACTIVATE VIA OPERATOR 


HE HK HE HE HK HE DK DE DE HE KE DE EE HE EK EK HE EE EEK EE EE EE EE KE KE KE EE EE EK DEK EEE EEK KKK KK KH 


%- & X 
x LOGICAL UNIT SPECIFICATIONS x 
x x 


Set. 2.2.0.0, 2,2,2,0, 0,2, 0,0,0,0.0,0,5,0,0.0,0,5,5,0,0,0,0,5,0,0,5,5,0,0,5,5,9,.0,5,9,5,0,0,0,9,9,9,5,9,9,5,5,0, 0,05 ,0,0,0,0.0,0,0,5,5,5) 


INBATCH2 LU LOCADDR=1, IN REQ’D FOR 1ST LU X 
ISTATUS=ACTIVE 

INQDEM12 LU LOCADDR=2, X 
ISTATUS=ACTIVE 

INQ@DEM13 LU LOCADDR=3, X 


ISTATUS=ACTIVE 
INQDEM14¢ LU LOCADDR=4 


PAGE 7-8 SNA PRODUCT INSTALLATION GUIDE G320-6028 (2/79) 


SAMPLE NCP FOR 3704 


HE HK HE HE HEHE HE HK HEHE HE HK HK HE HE HE HE HK KE HE HE HE HE OK HEE EK HE EE HE HE HE HE HE EE SE DE HE EK HEE KE HE HE HE HE EK HE KE HE HE EE EEK EE EK HEHE 


x ¥* 
X SERVICE ORDER FOR 3600°S FOR SSS TRANSFER ONLY AND FOR * 
x OPERATIONAL USE. x 
% | x 


SEE HE DHE HE 3 DE HE HE DE DK DE DE DE DE DE DE DE DE DK DK DE HE HE DE DK SEE 3 DK DE HE DE DK DE HE DE DE HK DK HK HE HE DE DK HE DE DE DK HE DEE DK HE HEHE DEK HE EE EE EK EE 
SERVICE ORDER=(CL3600,C36S5)__ 


HE HE HE IE HE HE HEHE DE HE KE HE DE HE IE HE EK HE HK IEE EE EE EE EE HE HK EK DE DE HE DE DE IE DE DE HE DE DE DE IK DE DE HE DE DE HE DE DE DE HE DE DE KE EEK DE EE EE KEK 


% | * 
x PU MACRO SPECIFICATION FOR 3600 LINK x 
* % 


HK HE HEH HE HE HE HK HE IE HE HE HE DE EK SE IE EE HK HE HE SK KE KE HK HK EK HE HK HEE HE HK KE HE HK HE EEE HE HE HE HE HE EH HK HE HK HE HK HK EH HE HK HEH HK KKK 


CL3600 PU ADDR=Cl, PU ADDRESS = A CEBCDIv) Xx 
PUTYPE=2, X 
MAXDATA=80, MATCH BUFFER VALUE IN 3601 X 
MAXOUT=3, MAX PATH INFO UNITS BEFORE RES X 
PASSLIM=1, x 
PACING=(0), BEST FOR INQUIRY RESPONSE X 
VPACING=(0), CHANGE IF NCP SLOWDOWN X 


ISTATUS=INACTIVE ACTIVATE VIA OPERATOR 
HEHE HE HEHE HE DE DE HEHEHE HEHE DE DE DK HE EK DE DE HEE EE DK IEE DE DK DK EOE DE HEE DEE DE HE EK HE EE IK EE HEE HE HE HEE EHH KE 


% % 

x LOGICAL UNIT SPECIFICATIONS x 

x 7 % 

HEH HE HE 3 DE HE 3 DE DK ED DEE DE DK HE DE OE HK HE DE DE DK IE DE DK DE DE DK HK DE DE ED OK HE OE DE IK HE DEK HEE DE HK HE DEE DK HE DEK DE OE DE HK HE DED DE HE DEE HEE 

FALUAI] LU LOCADDR=1, ISTATUS=INACTIVE X 

FALUA2 LU LOCADDR=2, x 
ISTATUS=ACTIVE 

FALUAS LU LOCADDR=3, X 
ISTATUS=ACTIVE 

FALUA4 LU LOCADDR=4, x 


ISTATUS=ACTIVE 
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SAMPLE NCP FOR 3704 


DE HE HE DE DE IE DE DE DK DE DE DE DE IE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE HE DE DEE DE DE DE DE DE DE DE DE DE DE DE DE EE EEN 


—& % 
x PU MACRO SPECIFICATION FOR %600 FOR SSS % 


* ¥* 


DE HK HE DE DE EE DE DE IEE HE DE DE DE DEK IE DE DE HK DE DE DE DE DE DE DE DE DE DE DE DE NE DE DE DE DE DE DE DE HE DE DE DE DE HEE DE HE KE DEE DE DE DE NK DE EE DE DE DE NE DE EEE EX 


CL36S5S PU ADDR=Cl, PU ADDRESS = A CEBCDIC) X 
PUTYPE=2, | X 
MAXDATA=265, MAXIMUM AMOUNT OF DATA x 
MAXOUT=3, MAX PATH INFO UNITS BEFORE RES X 
PASSLIM=1, Xx 


ISTATUS=INACTIVE ACTIVATE VIA OPERATOR 
HEHE DE HE HE DE DE DE HE DE DE DK DE HE DE DE DE DE DE IE DE DE IK 3E DE DE DE DE DK IE DE DK HE DE DK DE HE DE DK DK HE DE DE NE DE DE DE SE DE DK DE DE DE DE DE BE DK HE DE DE DK DE DE DK HE DE DE OK EE 


x x 
% LOGICAL UNIT SPECIFICATIONS x 
x x 
HE HE HE HIE DE DE DE DEE HE HE DK DE HE DE DE HE DE DE DE DE DEE DE DE DE IE DE DE DE HEE DE IE BE DE DE DE DK DE DE HE DE DE DK HE DE DE HK IK IE DE DE DK HE DE DE DE DE DEE DE DEE IK EEE 
FALUAISS LU LOCADDR=1, | FA REQ'D FOR 1ST LU X 
PACING=(3,1), X 


VPACING=(4,1), IF NO SLOWDOWN, INCREASE VPACING X 
ISTATUS=ACTIVE 7 
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SAMPLE NCP FOR 3704 


Mt FFs FFE F FPS SP FFF FSP S SPP SS SESS SESS TESS SESS ISS SES SSS SSS SS SES SS SS SS SSS SS 


% % 
% SERVICE ORDER FOR SDLC 3650 (FULL DUPLEX) x 
% ¥% 


HEHE HEHE DE HE DE DK DDE DK HK DE DE IE HE HE DEE DE DE DE DE DE DK DK DE DE DE DEE HE HE HE DE DE DE DE DE DE DE DE NE IE EE HCE DE DE 3 DE DE DE DE DE DE DE DE DK DE DE HE EEE 
SERVICE ORDER=C(STORE1L) 


HE He HEH HE HEE HE DE HE HE DE HE HE DE OE DE DE HE EE DE HE HE DE HE HK DE DE HEE DE DE IE SE DE DE DE DE DE ESE EE HE DE EE DE DE EK EK DE DE DE ESE EOE EK KOK EEE EEK 


¥* x 
* PU MACRO SPECIFICATION FOR 3650 X 
* * 


DE HE HE HEE DE HE HE HE DK DE HE HE HE IE HE HE DE EE HK IE HE HE HE HEE HE HE EK EE IE HK KY DEE HE HEE HK EE HE EK HE EE EE HE DE KE SE EE KE EE EK EE HK EK HEK 


STOREL PU ADDR=C4, PU ADDRESS = D CEBCDIC) X 
CUTYPE=SDLCl1, X 
MAXOUT=7, MAX PATH INFO UNITS BEFORE RES x 
MAXDATA=265, 6 BYTE TH, 3 BYTE RH, 256 BYTE RU X 
PASSLIM=5, LIMIT IS 5 PIUS PER INDUSTRY SPEC X 
ISTATUS=INACTIVE, ACTIVATE VIA OPERATOR x 
PACING=(1,1), x 


VPACING=(3,1) 
HE DE HE SE DHE DE DE DE HE DE DK HE DE DE DE HE DE DE HE DE DK DE HE DK DE HE DE DK HEE DE HE HE DED HE HE DE DK HE KEK IE DE DK HOE DE HK HE HE DE IE EE EE HEH 


x x 

% LOGICAL UNIT SPECIFICATIONS x 

¥* % 

HE HE HE DE HEE HEE HE HEE HE HE HE HE EE HE KE EE EE SE EE KE KE EE EE HE EE EEE EEE EE EE EEE KKK HK KRM KKK KK 

QESTORE] LU LOCADDR=1, REQ'D FOR 15T LU X 
PACING=(7,1), IMPROVES LOADING 3651 x 
VPACING=(4,1), DECREASE IF SLOWDOWN WITH SSS X 
ISTATUS=ACTIVE ; 

QECREDIT LU LOCADDR=2, x 
PACING=(0), X 


VPACING=(0) 
QE365311 LU LOCADDR=3 
Q@E365312 LU LOCADDR=4 
QE365313 LU LOCADDR=5 
QE365314 LU LOCADDR=6 
Q@E365315 LU LOCADDR=7 
QE327511 LU LOCADDR=8 
QE327512 LU LOCADDR=9,PACING=(2,1) 
QE327513 LU LOCADDR=10,PACING=(2,1) 
QE327514 LU = LOCADDR=11,PACING=(2,1) 
QE327515 LU LOCADDR=12,PACING=(2,1) 
QEINTL LU LOCADDR=13,PACING=(2,1) 
QEINT2 LU LOCADDR=14 
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SAMPLE NCP FOR 3704 


HEHEHE HEHE DE HE DE HE HE HE DE HE HE DE 3K DE DE DEE DE DE DE DE DE DE SE DE HE IE DE DE DE ME DE DE DE DE HE DE DE DE DE HE SE EK DE HE DE DE EE HE IE EE HE EK EEK EH EK KK HK 


% % 
x GENEND DELIMITER | x 
& | | | 7 x 
HE HEHE HEHEHE HE HE HEHE HE DE HE DE HEHEHE IE HE DE HE HE HE DE DK HE DE DK HE DE DE DK HE DE IE HE EDK DE DE DK DE HEE DE DEE DE DK HE DE DE DE HE DE DE DK EE DK HEE DK EOE EEE 
GENEND | | | 
END 
7% 
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SAMPLE NCP FOR 3705 


Zi.2 ? SAMPLE NCP FOR 3705 (MULTI-PURPOSE) 


Cece 8 CEETEE ney 86 SURE 


HEHE HEHEHE HE DE DE DE DE HE HE HEE HEE HE DE DE EE DE DE BK DE HK HE HEE EEE EK EK HK KK HH EK HK IE HE HE HEH EK HK KK HK HK HHH HK HH 
SOURCE FOR NCP 5.0 OR ACF/NCP/VS x 


x SUPPORTS BASIC, SDLC AND REMOTE 370X x 
HEH 3 HE HEHE HEHE DE DE BE EE DK DE DEE DE DE DE EE DE DE DEE HE DE DE DE DEE EK DE OE EE KE DE HE HK HE OE EE EE EEK EEK HEH HHH MH KK KH 


PCCU SPECIFICATIONS - OS/VS CVTAM) 


HE HE HEHE HEHEHE HEE IE HE HK EE HEE HE KE EK HEE EEK HE HEE DE HE HEE HE KE HEE EK EEE EE EEE EK EE EEE EOE EE ESE KKK HR 


NUPSiART FCCU CUADDR=OBF, 3705 CONTROL UNIT ADDRESS X 
AUTODMP=NO, PROMPT BEFORE DUMPING NCP X 
AUTOSYN=NO,> PROMPT OPERATOR IF NCP LOADED X 
MAXDATA=3000, ALLOW FOR 3270 BSC x 
CONFGDS=NCPOOL, VTAM 2 ONLY X 
AUTOIPL=YES, AUTOIPL AND RESTART X 
DUMPDS=NCPDUMP, AUTQODUMP REQUESTED xX 
INITEST=YES NCP INITIALIZATION TEST 


PCCU SPECIFICATIONS FOR DOS/VSCVTAM) 


SS 22.2.2. 0.2.0 0.0.5.0, 0.0.0,0,.9, 5,0, 0,0,0,0.0,0,.0,0.0,0,0,0,5,0.0,0,.0,0,0,0,5,.0.0,.0,0,9,9,0,5,0,0,0,0,0,0,5,. 0.0.0, 5,0, 05,00, 0.0.5.0, 845 


NCPSTART PCCU CUADDR=OBF, 3.05 CONTROL UNIT ADDRESS X 
AUTODMP=NO, PROMPT WHEN NCP FAILS X 
AUTOSYN=YES, NO PROMPT IF ALREADY LOADED X 
MAXDATA=3000, ALLOW FOR 3270 BSC X 
AUTOIPL=YES, AUTOIPL AND RESTART X 
DUMPDBS=SYS007, DS FOR DUMP OPTION X 
INITEST=NO, NO INITIAL TEST x 
NCPLUB=SY35008 LOAD MODULE NAME 


NOTE: MAXDATA must be less than MAXBFRU X UNITSZ - BFRPAD. It must be 
be greater then the largest PIU passed through the NCP. 
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SAMPLE NCP FOR 3705 
PCCU SPECIFICATIONS FOR ACF/VTAM OS/VS 


x PCCU SPECIFICATIONS - ACF/VTAM OS/VS _ | — & 
He DE DE DE HE DE IE HE DE HK HE DE DE HE HE DE DE DE HEE DE DE DE HE DE DE IE DE DE HE DE DK HE DE DE DEE DE DK HEC DK HE DE HEE DE DK DE DE OK DE ED IEE DE DK HE EE I EEK HK 


NCPACF PCCU CUADDR=418, 3705 CONTROL UNIT ADDRESS 


x 
MAXDATA=3000, — MAX OUTBOUND PIU X 
AUTOSYN=YES, NO PROMPT IF ALREADY LOADED X 
AUTODMP=NO, PROMPT BEFORE DUMPING NCP X 
AUTOIPL=YES, AUTOIPL AND RESTART NOT AUTO X 
DUMPDS=NCPDUMP, AUTODUMP REQUESTED X 
SUBAREA=13, SAME AS HOST MACRO X 
INITEST=NO NCP INITIALIZATION TEST 


PCCU SPECIFICATIONS FOR ACF/VTAM DOS/VS 


¥ PCCU SPECIFICATIONS - ACF/VTAM DOS/VS 
DE HEH HE HE HE HEE HEE HED HED HEI HE HD HED DEH HH 9 


NCPACF PCCU CUADDR=070, 3705 CONTROL UNIT ADDRESS 


x 
AUTODMP=NO, PROMPT WHEN NCP FAILS x 
MAXDATA=3000, — ALLOW FOR 3270 BSC X 
AUTOIPL=YES, AUTOIPL AND RESTART X 
DUMPDS=SYS007, DS FOR DUMP OPTION x 
INITEST=NO, NO INITIAL TEST X 
AUTOSYN=YES, NO PROMPT IF ALREADY LOADED X 
SUBAREA=12, SAME AS HOST MACRO x 


NCPLUB=SYS008 LOAD MODULE NAME 
NOTE: MAXDATA must be less than MAXBFRU X UNITSZ - BFRPAD. It must be 


be greater than the largest PIU passed through the NCP. 
If using IBM 3278 Model 4, MAXDATA should be 4000. 
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S+MPLE NCP FOR 3705 


BUILD MACRO SPECIFICATIONS FOR OS/VS 


SS 2 2.0.0. 2.0,0.0,0,.0,.9.0.0,. 0.5. 0,.9.5.0.0. 0.5. 0.0,5,.0,.0. 2.0.5.0. 0,.5.5. 0.0.5.0. 0.0,.0,5,.5.5,0.0.5.9,0,5.5,0,5,5,0,5.0,.0, 5.0.0, 5.0.0.5, 2,0,5 


NCPBUILD BUILD MAXSUBA=15, 


LOADLIB=NCPLOAD, 


OBJLIB=NCPOBJ, 
LESIZE=320, 
TYPSYS=05, 
QUALIFY=SYS1, 
UNIT=SYSDA, 
MEMSIZE=112, 
TYPGEN=NCP-LR, 
ABEND=YES, 
ANS=YES, 


MUST BE SAME AS IN VTAM STR DEF 
LIBRARY FOR NCP LOAD MODULE 
LIBRARY FOR ASSEMBLER OUTPUTS 
REGION SIZE FOR LINK-EDIT 

OS USED FOR STAGE 2 

IST LEVEL QUALIFIER 

DATA SET FOR ASSEMBLY 

3705 STORAGE SIZE IS 112K BYTES 
NCP WITH REMOTE SUPPORT 

ABEND FACILITY INCLUDED 
AUTOMATIC NETWORK SHUTDOWN 


~M KK KK KK KK KK 


NOTE: Should be yes for PEP generation. 


ASMXREF=NO, 
BFRS=64, 


NOTE: Note channel type 


6320-6028 (2/79) 


CHANTYP=TYPEZ2, 


NO ASSEMBLER CROSS~REFERENCE XX 
NCP BUFFER SIZE X 


PRIMARY CHANNEL ADAPTER X 


CSMHDR=27F5C711C3F0405C40C8C4D9405C, 3270 CRITSIT HEADERX 
CSMHDRC=40E3C5E7E3405C5C, 3270 CRITST HEADER EXTRA TEXT X 
CSMSG=CIDICIESJEZC9E35A40E3385819440F040, CRITSIT MESG X 
CSMSGC=6040C1D5E2408285387A4954B, CRITST MESG EXTRA TEXT X 


CUID=, 
ERASE=NO, 
ENABLTO=, 
ITEXTTO=60, 
JOBCARD=MULTI, 
MODEL=3705, 
MTARTO=30, 
MTARTRY=10, 
NEWNAME=NCPSDL, 
PNLTEST=YES, 
OLT=YES, 
SLODGWN=12, 
SUBAREA=3, 
TIME=, 
TRACE=CYES, 64), 
UTIL=SYSUTI, 
UT2Z=SYSUT2, 
UT3=SYSUT3, 
XBREAK=4, 
AITB=NO 


SNA PRODUCT 


NO SWITCHED BSC ID SEQUENCE DEVICES X 
DO NOT ERASE BUFFERS X 
NO SWITCHWD BACK_UP SUPPORT X 
TEXT TIME OUT PROVIDED BY BUILD MACRX 
JOBCARDS PROVIDED BY NCP GEN 


NAME OF THIS LOAD MODULE 
PANEL TEST INCLUDED 
ONLINE TEST AVAILABLE 

— SLOWDOWN WHEN 12% OF BUFFERS AVAIL 
SUBAREA ADDRESS = 3 
NO TIME ON STAGE 2 EXEC CARDS 
64 ADDRESS-TRACE ENTRIES 
PREALLOCATED WORK SPACE 
PREALLOCATED WORK SPACE 
PREALLOCATED WORK SPACE 
4 BREAK CHARS. FOR 300 BPS 
NO ITB SUPPORTED BSC UNITS 


Mm KK KK KK KR KK OK OK OK OK OK 
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SAMPLE NCP FOR 3705 


BUILD MACRO SPECIFICATIONS DOS/VS 


NCPBUILD BUILD 


MAXSUBA=15, 
TYPSYS=DOS,. 
MEMSIZE=1l12, 
TYPGEN=NCP-LR, 
ABEND=YES, 
ANS=YES, 


MUST BE SAME AS IN VTAM STR DEF 
DOS USED FOR STAGE 2 

3705 STORAGE SIZE IS 112K BYTES 
NCP WITH REMOTE SUPPORT 

ABEND FACILITY INCLUDED © 
AUTOMATIC NETWORK SHUTDOWN 


Mm KK KK OK 


NOTE: Should be yes for PEP generstion. 


ASMXREF=NO, 
BFRS=64, 


NOTE: Note channel type 
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CA=TYPE2, 
CHANTYP=TYPE2, 


NO ASSEMBLER CROSS-REFERENCE X 
NCP BUFFER SIZE X 


NEW FOR NCPS | X 
PRIMARY CHANNEL ADAPTER X 


CSMHDR=27F5C711C3F04¢05C40C8C4D9405C, 3270 CRITSIT HEADERX 
CSMHDRC=40E3C5E7E34¢05C5C, 3270 CRITST HEADER EXTRA TEXT X 
CSMSG=C3D9SCIESE2ZCIES5A40E385819440F040, CRITSIT MESG xX 
CSMSGC=6040C1D5E240828587A4954B, CRITST MESG EXTRA TEXT X 


CUID=, 
ERASE=NO, 
ENABLTO=, 
ITEXTTO=60, 
JOBCARD=MULTI, 
MODEL=3705, 
MTARTO=30, 
MTARTRY=10, 
NEWNAME=NCP500, 
PNLTEST=YES, 
OLT=YES, 


SLODOWN=12, 


SUBAREA=3, 
TIME=, 
TRACE=CYES,64), 
XBREAK=4, 
XITB=NO 


SNA PRODUCT 


NO SWITCHED BSC ID SEQUENCE DEVICES X 
DO NOT ERASE BUFFERS X 
NO MANUAL SWITCHED BACKUP | xX 
TEXT TIME QUT PROVIDED BY BUILD MACRX 
JOBCARDS PROVIDED BY NCP GEN 


NAME OF THIS LOAD MODULE 

PANEL TEST INCLUDED 

ONLINE TEST AVAILABLE 

SLOWDOWN WHEN 12% OF BUFFERS AVAIL 
SUBAREA ADDRESS = 3 

NO TIME ON STAGE 2 EXEC CARDS 

64 ADDRESS-TRACE ENTRIES 

4 BREAK CHARS FOR 309 BPS 

NO ITB SUPPORTED BSC UNITS 


xx «x*KKKMKK KKK 
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SAMPLE NCP FOR 3705 


BUILD MACRO SPECIFICATIONS FOR OS/VS CTWO CHANNELS) 


% % 
x BUILD MACRO SPECIFICATIONS - TWO TYPE 4 CHANNELS x 
* % 


HH HEE HEHEHE HE HE IEE HE HEE HE EE EK HEE EK HE HEE HE HE HEE HEHE EK HE HEE IEE HEE HE KE HEE KEK EHH EK K KH K HN 
HONEDEV BUILD TYPGEN=NCP, 
MAXSUBA=31, 
PARTIAL=NO, 
MAXSSCP=2, BOTH HOSTS ACTIVE 
MEMSIZE=256, 
MODEL=3705-2, 
NEWNAME=NCPACFI, 
CA=CTYPES, TYPE4-0), 
NCPCA=CACTIVE,ACTIVE), 
LTRACE=2, 
TYPSYS=0OS, | 
LESIZE=200, 
QUALIFY=NCP6, 
LOADLIB=NCPLIB, 
OBJLIB=NCPACFI, 
ABEND=YES, ABEND FACILITY INCLUDED 
ANS=YES, AUTOMATIC NETWORK SHUTDOWN 
NOTE: Should be yes for PEP generation. 
= ASMXREF=NO, NO ASSEMBLER CROSS-REFERENCE Xx 
BFRS=64, NCP BUFFER SIZE X 
CSMHDR=27F5C711C3F0405C40C8C4D9405C, 3270 CRITSIT HEADERX 
CSMHDRC=40E3C5E7E3405C5C, 3270 CRITST HEADER EXTRA TEXT X 
CSMSG=C3DICIESEZCIES5A40E385819440F040, CRITSIT MESG X 


MK 9 KK OK OK OK OK OK OOK OK OK OK OK OK OK 


CSMSGC=6040C1D5E240828587A4954B, CRITST MESG EXTRA TEXT X 
ERASE=NO, DO NOT ERASE BUFFERS x 
JOBCARD=MULTI, JOBCARDS PROVIDED BY NCP GEN x 
OLT=YES, ONLINE TEST AVAILABLE x 
SLODOWN=12, SLOWDOWN WHEN 12% OF BUFFERS AVAIL xX 
SUBAREA=21, x 
TIME, NO TIME ON STAGE 2 EXEC CARDS x 
TRACE=CYES,64), 64 ADDRESS-TRACE ENTRIES 4 
-UNIT=VIO, DATA SET FOR ASSEMBLY AND LINK EDIT X 
XITB=NO NO ITB SUPPORTED BSC UNITS 
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SAMPLE NCP FOR 3705 
SYSCNTRL OPTIONS FOR VTAM AND TCAM 


«HEHEHE DEKE DE HEHEHE HEHE HD HEI HB IE DE HED HDD 9 HE DB HE 9 HE 3 HE OE 9 I HE 9 HE HO DE IK 
NCPSYSC SYSCNTRL OPTIONS=(MODE, x 
RCNTRL,RCOND,RECMD,RIMM,ENDCALL,SSPAUSE, | | X 
BHSASSC,NAKLIM, SESSION, XMTLMT) 


NOTE: If the NCP does not contain Start/Stop or BSC devices, SYSCNTRL 


options will not be included in the ACF/NCP generation even if 
included in the source deck. 


HOST MACRO SPECIFICATIONS OS/VS CVTAM) 


Xx OS/VS VTAM REQUIRES BFRPAD=28, STATMOD=YES, SUBAREA = 1 % 
PE SPP SS STEEP SS SSS SESS SS SSPE SESE SS SESE SES ESTP PSST PSSST SSE E SESS SET ESS ESSE | 


NCPHOST HOST INBFRS=4, INITIAL 3705 ALLOCATION X 
MAXBFRU=20, VTAM BUFFER UNIT ALLOCATION &® 
UNITSZ=152, OS VTAM BUFFER SIZE | x 
BFRPAD=28, | OS VTAM 28, DOS VTAM 15,ETM 2 X 
DELAY=.1, -1 SECOND ATTENTION DELAY -OS X 
STATMOD=YES, YES 0S AND DOS VTAM, NO EXTM X 
TIMEOUT=(€120.0) AUTO SHUT DOWN IF NO RESP IN 120SEC 

HOST MACRO SPECIFICATIONS DOS/VS CVTAM) 

X DOS VTAM REQUIRES BFRPAD=15, STATMOD=YES, SUBAREA = 1 x 


NCPHOST HOST INBFRS=4, INITIAL 3705 ALLOCATION X 
MAXBFRU=20, VTAM BUFFER UNIT ALLOCATION X 
UNITSZ=88, VTAM BUFFER SIZE MUST BE MULT OF 8 X 
BFRPAD=15, | OS VTAM 28, DOS VTAM 15 | x 
DELAY=.1, .1 SECOND ATTENTION DELAY Xx 
STATMOD=YES, NO FOR EXTM | | xX 
TIMEOUT=(€120.03 AUTO SHUT DOWN IF NO RESP IN 120SEC 


NOTE: UNITSZ times MAXBFRU minus BFRPAD equals MAX message size 
for HOST inbound messages. 
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SAMPLE NCP FOR 3705 


HOST MACRO SPECIFICATIONS ACF/TCAM OR TCAM 10 


pee Sere ei tet tte ttt teri ti ttt tte tt trtt ttt sett str tttttt ttt testi ttt tite tt. 


x x 
x HOST MACRO SPECIFICATIONS OS ACF/TCAM OR TCAM 10 % 
% % 
He HE HK HE HK HE HE HE IE HK HE IKE HE HK HEE HE HK EK HE DE DK EE HEE HE HE IK HE HE HE IK DE EE HK EK KE DE EE DEK DE DE IE HE EE EK EK DE DE DE DE DEE EE EK EE HE 
NCPHOST3 HOST INBFRS=8, INITIAL 3705 ALLOCATION X 
MAXBFRU=20, TCAM BUFFER UNIT ALLOCATION X 
SUBAREA=14, x 
UNITSZ=156, MUST MATCH MCP UNITSZ X 
BFRPAD=17, xX 
DELAY=.1, -l SECOND ATTENTION DELAY X 
STATMOD=YES, X 
TIMEOUT=(€180) AU.O SHUT DOWN IF NO RESP IN 180SEC 


HOST MACRO SPECIFICATIONS ACF/VTAM 


HE HE HK HE HE HE HE DE HK DE SE HE HE HK HE HK HE DEK DE IE HK DE DE SE IEE HE EK IK HK EE HE KE HE EE HK IK EE HEE HK EK KE HK HK HEHE HE HEE HK EK EK EH KH KK KKK 


x x 
is HOST MACRO SPECIFICATIONS OS ACF/VTAM * 
x x 
HE HE DE HE HEHE HEHE DE DE HE HE HE HE HE HE HE HE DE I HE HE HE HE DE DE HE HE HE DE HE DE HEE HEH HE EE KH EK HK HEHE HEHEHE KK HE EEK MMR 
NCPHOST4 HOST INBFRS=8, INITIAL 3705 ALLOCATION X 
MAXBFRU=20, VTAM BUFFER UNIT ALLOCATION x 
SUBAREA=13, X 
UNITSZ=152, X 
BFRPAD=0, X 
DELAY=.1, -l1 SECOND ATTENTION DELAY -OS X 
STATMOD=YES, x 
TIMEOUT=(180) AUTO SHUT DOWN IF NO RESP IN I80SEC 


DE HEE HE HEH IE HE HE HE HE EK EK NE IE DE EE DE HK EE KE HE EE EE EK EE HK KE HE EK IEE EK KE EK EE EK EK KEK KKK KHER MKK KKK 


BS % 
as HOST MACRO SPECIFICATIONS DOS ACF/VTAM x 
x x 
HEHE HE HE HEHEHE HE DE DE EE HEHE HE DEE DE DE DK DE DE HE DE DE DE DK HE DE DE DE OE DE DK DK DE HE EE DE DE DK HK IE DE DE DE DE IE DE HE HE EOE EE EK HE HK HE HEE EHH 
NCPHOST4 HOST INBFRS=8, INITIAL 3705 ALLOCATION X 
MAXBFRU=20, VTAM BUFFER UNIT ALLOCATION x 
SUBAREA=12, x 
UNITSZ=136, x 
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| SAMPLE NCP FOR 3705 


BFRPAD=0, | | 
DELAY=.1, -1 SECOND ATTENTION DELAY ~-OS 
STATMOD=YES, 

TIMEOUT=(180) AUTO SHUT DOWN IF NO RESP IN 180SEC 


mM MK 


PATH MACRO SPECIFICATIONS ACF 


NCPPATH4 PATH ADJSUB=14, | a | X 
DESTSUB=9 


CSB MACRO SPECIFICATIONS 


HE HE HK HEE HEHE DEE DE EK EE EE HK EK HEE HE EK EK EK EK HK HE HK EEE HE HE HE HEHE EK EEE HK HE HEE DE DE HE DEE EE EOE EK EE HK HEH 


NCPCSB CSB SPEED=€134,300,1200)3, BUS MACH CLOCKS | X 
MOD=0, SCANNER ADDRESS 020 TO ASF x 
TYPE=TYPE2 TYPE 2 COMM SCANNER 


LUPOOL MACRO SPECIFICATION 


x (MUST BE SPECIFIED BEFORE FIRST GROUP MACRO)» 
Pett E Pete SE e eset Sess SSE SSPE SESE SESE SEES SE SESE SESE SESS SS TESST TSS T ESS ESS: 


POOLL LUPOOL NUMBER=120 ALLOW FOR LARGE POOL 
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SAMPLE NCP FOR 3705 


MTA SUPPORT 


*  MTALCST MACROS =- MULTIPLE TERMINAL ACCESS x 
HEHE HE DE DE DE HEHEHE HEE DE DDE HE DE OK DE DE IE HE EEE DEK BE IE DE HK HE DE DE DE DK KDE DE DE DK HE ED DK DE DE EE EE DE DE DE DE EK KE DEE EEE KE 
C2741COR MTALCST GROUP=G2741,CLOCKNG=INT,CODE=COR, x 


LCTYPE=2741,SPEED=134% 


* MTALIST MACRO % 
HEHE DE DEK HE DE HE DE DE DE DE HE DE ED DE DE EE BC DE DE DK DK DE DE KE DE DE DE BK DK DE DE DE DE DE BK DE IE ED DK DE DK HE HEE DE 3 DE DE DE DK DK DK DE DE DEK KK DK DK DE DE DEK 


MTALISTL MTALIST LCTYPE=(€2741) 


* MTATABL MACROS x 
HE HK DEK HEE DEH HE IE EK HEHE EE HE SE DE EE HE DE HE HE DE HE DE HK EE HE HE EE EE HE EE EK HE HE HK HE HE HEE HE HE KE HE EK HEH KH HK HHH KKK KKH 


T3767COR MTATABL LCOST=€C2741COR),LCTYPE=2741,CODE=COR 


x MTA GROUP | x 

HE HE HK HEHEHE HEE HE DE HE EE EK SE HE DE DE DEK DE DE HE HE DE DE DE IE DE HE DE DE DE HE EE DE KE HE HE HK DE DE EE DEE HE HE DE DE DE SE DE DEK HE DE DE DE DE HK DEE EE EK EH 

MTAGROUP GROUP CRETRY=6,DIAL=YES,LNCTL=SS, x 
TYPE=NCP 

* START-STOP LINE SPECIFICATIONS x 


HE HE HE HE DEH DEH HEHE DE DE HEE HE DK DK HE DE DE DK HK HE EK DK DK IE DE DE DK DE HE HE DE DE HE HE DE DK DE HE DE DE HE DE DE DK DK DK DK HEE DE DE DE KE DE DE DK IE DEDEDE DK KE EEK 

LNMTA LINE ADDRESS=025,SPEED=134,MTALIST=MTALIST1,POLLED=NO, X 
DUPLEX=FULL,CALL=IN,RETRIES=(2,1,23,TRANSFR=2, X 
MONITOR=YES,DIRECTN=INOUT, x 
LOGAPPL=NETSOL,LOGTAB=TABLEOIL 


MTA TERMINAL TERM=MTA,CTERM=YES,ATTN=ENABLED, X 
FEATURE=CATTN; BREAK, TOSUPPR) ,CRDLAY=YES 
VMTA VTERM LCOST=C2741COR,BUFLIM=2 


Note- This sample will work with VSPC and TSO through TCAM9/VTAM. 
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SAMPLE NCP FOR 3705 
2740 MULTI-DROP LINE 
3 3 HEHE HEE HE DK HEHE HE HE DEH IK HE IE IEE HE HK HE DE IEE HE HE HK HE DEK OE HH HEE OK OE HEH HE DK HE KE HE HE HE EK KKH 


EURGRP GROUP CDATA=NO0,CRETRY=5, DIRECTN=INOUT, ENDTRNS=EOT, | Xx 
CLOCKNG=EXT, DUPLEX=HALF, LNCTL=SS,SPEED=1200,TYPE=NCP, X 
LOGAPPL=NETSOL,LOGTAB=TABLEOL 


EURLINE LINE ADDRESS=026,CODE=EBCD,SERVLIM=1,POLLED=-YES, X 
RETRIES=(8,6,2),CUTOFF=1,SESSION=2,CRITSIT=YES, X 
SERVPRI=OLD, TERM=2740-2,XMITLIM=1,FEATURE=(CHECK), xX 


¥¥X® This POLIMIT will reduce system overhead but increase response time. 


POLIMIT=(€20, QUEUE) 


SERVICE ORDER=CLON, BON) 


LON TERMINAL ADDR=C1,POLL=Cl 


BON TERMINAL ADDR=C2,POLL=C2 
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SAMPLE NCP 


3767 SWITCHED LINE AT 300 BAUD START/STOP 


FOR 3705 


HE HE HE HE HE HE HK DE HE DE HEE HE DE HE IE HE DE HE SE EE EE DK HE DE DEE DE SE DE DE KE SE EE EK EE DE EK EE EK EEK HE KE EK EE EK EK EK EK EK KEK 


G3767 


L3767 LINE 


T3767 


GROUP CRETRY=6, 


DIAL=YES, 
CRDLAY=YES, 
CRRATE=5, 
LINESIZ=130, 
MONITOR=YES, 
REPLYTO=NONE, 
TEXTTO=NONE, 
LNCTL=SS 


ADDRESS=027, 
SPEED=300, 
CALL=IN, 


DIRECTN=INOUT, 


TYPE=NCP, 
CLOCKNG=INT, 
CODE=EBCD, 
DUPLEX=FULL 


TERMINAL TERM=2741, 


UTERM=T37674A, 
ATTN=ENABLED, 


LOGAPPL=NETSOL, 
LOGTAB=TABLEOIL, 


RETRY 6 TIMES 
SWITCHED LINE 
REQUIRED 

REQUIRED FOR 390 BPS 


NO REPLY TIME OUT 
NO TEXT TIME OUT 
START STOP LINE TYPE 


LINE ADDRESS 
LINE SPEED 300 BPS 
CALL IN ONLY 


NCP ONLY 

INTERNAL CLOCKING 

EBCD CODE CONVERSION 

MODEM STRAPPING IS FULL DUPLEX 


3767 DEFINED AS 2741 
LOGICAL TERMINAL NAME 
ENABLE ATTENTION FUNCTION 


FEATURE=CATTN, BREAK, TOSUPPR), 


CTERM=YES 


LOGICAL CONNECTION 


Note- This sample will work with VSPC and TSO through TCAM9/VTAM. 
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SNA PRODUCT INSTALLATION GUIDE 


Mm MK MK KM HK Mm KK KKK KK 


Km KKK KK 
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SAMPLE NCP FOR 3705 


2741 SWITCHED LINE AT 134 BAUD START/STOP 


Se 22 ¢. 2.2 02 2.2.2.2. t. 0.0.0. 0.0.3 0.0.0. 0.0.0.0.0.0.0.0.0.0.0,0.0.2,0.0,0.0.0,0.0,.0,.0.0.0,0,0,0,0,0. 0.0. 2,.0,.0,0,0,0,0.0,.0,0,0,..0,0,5,: 


62741 GROUP 


L2741 LINE 


CRETRY=6, 
CRDLAY=YES, 
DIAL=YES, 
MONITOR=YES, 


REPLYTO=NONE, | 


TEXTTO=NONE, 
LNCTL=SS 


ADDRESS=028, 
SPEED=134, . 
TYPE=NCP, 

MONITOR=YES, 


- DIRECTN=INOUT, 


T2741 


CALL=IN; 
CLOCKNG=INT, 
CODE=COR2, 
DUPLEX=FULL 


TERMINAL TERM=2741, 


UTERM=T2741A, 
ATTN=ENABLED, 


LOGAPPL=NETSOL, | 
LOGTAB=TABLEOIL, 


RETRY 6 TIMES 


SWITCHED LINE 


START STOP LINE TYPE 


LINE ADDRESS | 
LINE SPEED 134 BPS 


CALL IN ONLY 

INTERNAL CLOCKING 

COR2 CODE CONVERSION 

MODEM STRAPPING IS FULL DUPLEX 


2741 DEFINED AS 2741 
LOGICAL TERMINAL NAME 
ENABLE ATTENTION FUNCTION 


FEATURE=CATTN, BREAK, TOSUPPR),» 


CTERM=YES 


LOGICAL CONNECTION 


Note- This sample will work with VSPC and TSO through TCAM9/VTAM. 
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Mm KK KK XK 


—x* x «x «xx & 


Mm KK MK KK 
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SAMPLE NCP FOR 3 


SWITCHED TWX GROUP 


Ee et PP t eesti Sere Leese se SSeS tS SS SES SESS SE SSS SSS SESS LSS SS TSS SS SS SSP SSS SS Ss 
HH MHA HK HK HEH HE KK HK KE EK HK EK KE EK EEK EEK EK KKK KK KH HK HHH KK HK KH HH KKK KKK HK KKK KKK 
HEHE HEHEHE HK HE HE EE EE KE EE EK KE DE RK EE KE EE KK EE EE SEE EK EE KK EE EK EE EK KKK KKK KKK HK KK KKS 


X% x 
x TTY SWITCHED LINE AT 300 BAUD START/STOP MODE ss 
x ¥ 


HE HEE HE ESE HEE IE HEE KE HE HE ENE EE EE EK EEE EK EEK EE HE KK EE KE EK EK KE EE HK EK EK KK KE KEK EEK KK KKK 
HEHE KN HE HK HK HK HK HE EE HE HE EE HE EK EK EK HE IE KE DE HK EE EK IE HEE EE EE HK EE KEK EE IE HK HE KK EEK KK EK KE HK KX 
HEHE HE DEE HEE HE DE HEE EEK HE EE HE KE HK KEK EEE EE EE HE EEK EE EK EEK EE EEK EE EEE EEK KK KK KKK KKK 


705 


GTTY GROUP CRETRY=6, RETRY 6 TIMES X 
DIAL=YES, SWITCHED LINE X 
REPLYTO=NONE, NO REPLY TIME OUT X 
TEXTTO=NONE, NO TEXT TIME OUT X 
LNCTL=SS START STOP LINE TYPE 

LTTY LINE ADDRESS=029, LINE ADDRESS X 
MONITOR=YES, TEST FOR BREAK X 
TYPE=NCP, NCP ONLY X 
CRDLAY=YES, X 
DIRECTN=INOUT, X 
CRRATE=10, X 
LINESIZ=380, X 
CODE=DIC3, X 
CUTOFF=1, STOP RUNAWAY TTY x 
SPEED=300, LINE SPEED 300 BPS X 
CALL=IN, CALL IN ONLY X 
CLOCKNG=INT, INTERNAL CLOCKING X 
DUPLEX=FULL MODEM STRAPPING IS FULL DUPLEX 

TTY1 TERMINAL TERM=TNRX, TTY DEFINED AS TWX X 
UTERM=TTYLA, LOGICAL TERMINAL NAME X 
ATTN=ENABLED, ENABLE ATTENTION FUNCTION X 
FEATURE=CATTN, BREAK, TOSUPPR), X 
LOGAPPL=NETSOL, X 
LOGTAB=TABLEOIL, xX 
CTERM=YES LOGICAL CONNECTION 

Note- This sample will work with VSPC and TSO through TCAM9/VTAM. 
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SAMPLE NCP FOR 3705 
SWITCHED BSC LINE GROUP 
HH HE HE HE HE HE HE DE 3 3K 3 HE HE HE HE HE HE HE DE HK DK DDK DK 3 DE DE HE HE HE DE DK DK DD HE HE DE HE DD OO 3D 3 HE HE HE DE DO 3 HE HE DEO OOOOH HEE 


SWBSCLG GROUP DIAL=YES, SWICHED BSC 


x 
LNCTL=BSC, BSC LINE CONTROL x 
TYPE=NCP, FUR USE BY NCP ONLY x 
WACKCNT=15, WACK COUNT OF 15 X 
LOGAPPL=NETSOL, | X 
WAKDLAY=2.2, WACK DELAY OF 2.2 SEC x 
SYNDLAY=1,. SYNC INTERVAL RATE > 4 
REPLYTO=3 REPLY TIME OUT = 3 SECONDS 
HEH 36 HE HEHEHE HEH HEHEHE DE HE DEH DDE HE LIK DK DHE HE IE DK 3K 3 HE DE DEO DEH HE HK KDE HH HE HH HE OK HEHE HEH EEK 
x x 
& LINE SPEC FOR DIAL-IN BSC TERMINALS * 
% ¥ 
HEHE HEHE HEE EEK HE HE HE HE HE HE EK DE EE HE DE HE DE SE IE SE DE SE DE NE DE DE EE EE EE EE EE EE EE KE EE EK KE EE EE EE EE EE EEE HEHE 
SWBSCLA LINE  ADDRESS=045, LINE ADDRESS ON 3705 x 
CLOCKNG=EXT, EXTERNAL MODEM CLOCKING x 
TRANSFR=5, PASS IT ON IF LARGER THAN 5 X 
SPEED=1200, LINE SPEED X 
CODE=EBCDIC, EBCDIC ONLY | Xx 
DUPLEX=HALF, MODEM STRAPPING IS HALF DUPLEX X 
CALL=IN, INCOMING CALLS ONLY X 
INTPRI=1, INTERRUPT PRIORITY IS 1 x 
NEWSYNC=NO, 3705 WILL NOT PROVIDE NEW SYNC X 
CUTOFF=10, ALLOW FOR FULL RECEIPT OF MESSAGE xX 
RETRIES=(4,1,6) G RETRY EVERY 1 SEC FAR 6 TIMES 
HEHEHE HEHE HE HE HEE HEHEHE HEE HE HE HED HEE HE DEH BEE HEE HEE HE HEE HEE HE IE IE DE DE HE DE IE DE DEE HE DE EE IE HE DE IE DEE HE DE DE EE EE HE IE HEE HE EEK 
x % 
% TERMINAL MACROS x 
* % 
HEH HEE HE HEHEHE HE HEE HK HEE HE EE HEE IK IE EE HE EE HEE EE EE EK EEE EE EE EEK EE EK KE EEE EEE EE EEK HEN 
T3780 TERMINAL TERM=3780, 3770 DEFINED AS 2770 x 
CTERM=YES, x 
UTERM=T3780A CONTROLLING STATION 
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SAMPLE NCP FOR 3705 


PT. TO PT. BSC LINES 


HH HK HK HK HK HH HH HE HK HK HEE HE HE HE HK HE HE HE EE HEE IE EK EE EE EE KE EK EEE EK EE EEE EK KEE KEK KKK KKK KK KK 


% % 
x GROUP SPECIFICATION FOR LEASED POINT TO POINT LINE oS 
% * 


to 2.2.0.0, 2,0,0,5,9,0.0,0,0,0.0,0,0,0.5,9,.0,0,0,5,.0, 0.0.0, 0,0,5,0,.9,0,5,0,0,0,0,9,5,0,0,0,0,5,5,0,0,5,0, 0,0, 0.0,0,0,0, 9, 0.0.0, 0.0 8 Set 


GRPPTPT GROUP DIAL=NO, NON-SWITCHED LINES X 
LNCTL=BSC, BSC LINE CONTROL X 
TRANSFR=5, LIMIT NUMBER OF RECEIVE BUFFERS X 
CUTOFF=10, LIMIT NUMBER OF SUBBLOCKS X 
TYPE=NCP, FOR USE BY NCP ONLY X 
REPLYTO=3 REPLY TIME OUT 


HEHE FE HE HEH HEE HE HEE HE HE IE EK HE HEE IE HEE HE HE DEE EE EK IE DEK HEE IE EE I HE KK DEE HE DE HK IE DE KK EEE EE EEK EEK KKK EK 


% X 
* LINE SPEC FOR PT TO PT BSC LiNK SYSTEM/7 x 
x LINE CODED TO SUPPORT SDLC/BSC PATH FUNCTION — 
¥ % 


HK HEHE HE DE I HE HEHE HE HEE EEK IE HEE EE EE EE EEE EK EE EK HE KE EE HE HK IE EE EK EK HK KEE EK KE EE EK HEE KK KKK KKK 


LINE¢8 LINE  ADDRESS=048, LINE ADDRESS ON 3705 X 
CLOCKNG=EXT, EXTERNAL MODEM CLOCKING Xx 
SPEED=2400, LINE SPEED x 
CODE=EBCDIC, EBCDIC ONLY | X 
DUPLEX=HALF, MODEM STRAPPING IS HALF DUPLEX X 
YIELD=NO, NCP DOES NOT YIELD IN CONTENTION Xx 
TERM=SYS3 | 


DE HE HEHEHE HEHE HE EEE IKK EE EE EEE EK EK KE EK EE EEE EE EE KK HE KE KK KK EK EK EK HK KKK KKK KK KK KKK 


x % 
* TERMINAL MACRO SYSTEM/? as 
% | ® 


H HEE HEHE DE HEHE IE DE DE DE DE DE DE EE DE DE EDK HEE DE DE DE DK DE IE DE DEE EK DEE DEE DEK DE DK DE IE DE DE DE DE DE DE DE ENE DE DE DE HE DE DE HEE EK DE IE EK EEK 


PT3EXEC=YES, 
CRITSIT=YES, 
TERM=SYS3 


SYSTEM? TERMINAL BHEXEC=PT3, x 
BHSET=BHSET, X 

EXEC=YES, X 

CONV=YES, X 

X 

X 


NOTE~ This line will interface with the SDLC/BSC Path function. 
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SAMPLE NCP FOR 3705 


DE HE DE HE IE DE DE DEK DE DE DE IE DE EE OE EE DE DE EE DE DE DE SE EEE HK DE DE DE DE DE SE EE HK HE EK DE DE KK DE KK DE DE IE DE EE DE IE DE DK DE DE EK OE DE KE EEE 


x |  % 
* LINE SPEC FOR PT TO PT BSC LINK SYSTEM/3 x 
x MAYBE USED AS STATION FOR PREVIOUS LINE x 
‘ % 


HE HE HK HE HE HK DE DE HK DE HK HE SE DE DE DE DE IE HE DE DE DE DE EE DK DE HE KE DE DE DE DE EK DE DE DE DE DE DE DE IE KE DE DE IK HE IE IK DE OE OK EK EK EE KE HE KEE KK KKK 


LINE4¢9 LINE ADDRESS=049, LINE ADDRESS ON 3705 X 
CLOCKNG=EXT, EXTERNAL MODEM CLOCKING X 
SPEED=2400, LINE SPEED x 
CODE=EBCDIC, EBCDIC ONLY X 
DUPLEX=HALF, MODEM STRAPPING IS HALF DUPLEX X 
YIELD=YES, NCP DOES YIELDS TO CONTENTION X 
TERM=SYS3 | 


DE HE DE HEI HE EEK EE EE EE OK HE DE HE HEE KK EE KE EE HE DK EE HE KE HE EE EEK EE EE DK DE EE DE EE DE IE DE EE DE DE DE EEE EK EE HE KKK 


X TERMINAL MACRO SYSTEMZ3 % 
% ¥% 


HE HEH HEH IE HE HK HE HK OE HE DE HE HK HK DE IE IE DEE HK HK DE OE HE HE EE EEE EE EE KE EE EE EE HEH HK HK EK EK EE EK HK KKK HK KKK 


SYSTEMS TERMINAL TERM=SYS3, X 
CONV=YES 


Note- This line may be used as a driver for line on the preceeding page. 
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SAMPLE NCP FOR 3705 


3270 BSC SPECIFICATIONS 


x GROUP SPECIFICATION FOR REMOTE 3270'S % 
HE HEHE HE HE EH DEH DE EK DE DE DE HE EE DE DE DD DK I DK DE OE EE IE IE HEE 3K DE DE DE BK DE DK DK DK DK DE DE DE DE DE DE DE DE DE DEE EK KKK HHH KKK 


BSC3270 GROUP DIAL=NO, NON-SWITCHED LINES 
CRETRY=7, TIME OUT WILL TAKE ABOUT 63 SECONDS X 
LNCTL=BSC, BSC LINE CONTROL X 
**¥*% TRANSFR times the BFRS value in the BUILD macro should be a value 
greater than 256 but not exceed 400. 
TRANSFRE=5, LIMIT NUMBER OF RECEIVE BUFFERS X 
*¥¥*% CUTOFF=1 is required for 3270 BSC cluster control units. 
CUTOFF=1, LIMIT NUMBER OF SUBBLOCKS X 
TYPE=NCP, FOR USE BY NCP ONLY Xx 
¥¥* XMITLIM=1 is required for BSC 3270 Clusters. 
XMITLIM=1, TRANSMISSION LIMIT X 
WACKCNT=15, WACK COUNT OF 15 Xx 
WAKDLAY=2.2, WACK DELAY OF 2.2 SEC X 
SYNDLAY=1, SYNC INTERVAL RATE X 
REPLYTO=3 REPLY TIME OUT 
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SAMPLE NCP FOR 3705 


X 


SSCB 


KX 


LINE SPEC FOR 3271 
HHH HE HEHE HEHEHE EEE HK HK HEHEHE HHH HEHEHE HH HEHEHE HEH HK HEE EK HK HE EK KKK HEE HEHE HK KH HM KKH 


X 


ADDRESS=044, _ 
ISTATUS=INACTIVE, 
CLOCKNG=EXT, 
SPEED=4800, 
CODE=EBCDIC, 
DUPLEX=FULL, 


SC LINE 


NEWSYNC=NO is required for IBM 


NEWSYNC=YES, 
INTPRI=1,; 


LINE ADDRESS ON 3705. 
ACF/VTAM USE ONLY 
EXTERNAL MODEM CLOCKING 
LINE SPEED 

EBCDIC 3270'S ONLY 


DUPLEX FACILITY IS USED 


327473276 


3705 WILL PROVIDE NEW SYNC 
INTERRUPT PRIORITY [5 1 


¥¥X POLIMIT=C1,QUEUE) is recommended for best performance. 


RHKX 


KX 


KKK 


KX 
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POLIMIT=(€1,QUEUE), 
POLLED=YES, 
NEGPOLP=.1, 
PAUSE=1, 
RETRIES=(€7,4,3), 
SERVPRI=OLD, 


The SESSION=N should be equal 
terminals on the link. 


SESSION=8, 


The following parameter is for 
PU=YES 


The following parameter may be 


POLLED DEVICE 

NEGATIVE POLL PAUSE 

DELAY BETWEEN SERVICE CYCLES 
PRIORITY TO OLD SESSIONS 

to the number of clusters and 
SPECIFY 1 FOR EACH CLUSTER 
AND TERMINAL 

ACF/VTAM only. 


ACF/VTAM ONLY | 


used with VTAM or ACF/VTAM 


but can not be used with PU=YES. 


LOGAPPL=NETSOL 


LOGTAB= is required when the terminals are allocated to NETSOL. 


LOGTAB=TABLEOL 


SNA PRODUCT INSTALLATION GUIDE 


LOGON TABLE FOR NETSOL 


if DUPLEX=FULL is coded. 


Mm MK MK KK OK 


MK KKK MK 


G320-6028 (2/779) 


SAMPLE NCP FOR 3705 


% SERVICE ORDER MACRO SPECIFICATIONS % 
HEHE HEHE HE HEHEHE HEHE HE HE HE DE HE DE I HE HE HE DE DE DEK HK HE EE DE IE DE HE HE DE DE HE DED HE HE DE DE DK DE DE DE DE HE HE DE DE DE DE DK DE HE IE DE DE DE DE IK OF EK KE 


**¥*% Each cluster and terminal must be contained in the SERVICE macro. 


SSCSOR SERVICE ORDER=($$C3270,S5SCT1,55CT2,55CT3, X 
SSCT4,S5CT5,$803275,S5CT6) 


as CLUSTER MACRO FOR 3270 VTAM2, ACF/VTAM BASIC, OR ACF/TCAM 

HEHE HEHE HE HEHEHE HEHE DEH HEH HK HE HEHE HEHEHE IE HEHE HH DED HE HE DE DK HE DK I HE DE DE HE DE I HE DE HK HE DE DE DE DK EOE OE DK DE DE DK DE DE DK DE DE OE OK HK DE DE EK 

$$C3270 CLUSTER CUTYPE=3271, 3271 DEFINED X 
FEATUR2=(MODEL2,ANKEY,PFK), 3277 FEATURES X 
CRITSIT=YES, SEND CLOSE-DOWN MESSAGE X 
GPOLL=40407F7F GENERAL POLL ADDRESS 

X CLUSTER MACRO FOR 3270 ACF/VTAM CPU=YES) % 

3 HE HEH HEHEHE HEE DE DE DE HE DE DE HE HEHE DE DE DE DE DE DE HE EK IK HE DE DEK DE HE 5 DE DK BE HE DE DK HE DE DE DE DE DE IE DE DE IK DEE DE DE DK DEE DE DE DC DE IE HE IE 3 

$$€03270 CLUSTER CUTYPE=3271, 3271 DEFINED X 
CRITSIT=YES, SEND CLOSE-DOWN MESSAGE X 
GPOLL=40407F7F, GENERAL POLL ADDRESS X 


¥¥X The following parameters are ACF/VTAM only. 


DLOGMOD=S3270, MODE FOR BSC3270 X 
USSTAB=VUSS3270, X 
MODETAB=NOSPTAB MODETAB FOR BSC3270 
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SAMPLE NC? 


x 


FOR 3705 


TERMINAL MACROS 


3 HEHEHE HEHE EIEN HEHEHE HE HHI HHI I HH HI 


SscTl 


TERMINAL TERM=3277, 


3277 DISPLAY STATION X 


7 FEATUR2=(MODEL2,ANKEY,PFK), 3277 FEATURES | i % X 
*x¥* ACF/VTAM requires FEATUR2= to be on terminal macro. | 


ISTATUS=ACTIVE, WILL ACTIVATE WITH CLUSTER X 

ADDR=60604040, SELECTION ADDRESS FOR Tl X 
POLL=40404040 POLL ADDRESS OF TERM Tl | 

S$SCcT2 TERMINAL TERM=3277, 3277 DISPLAY STATION X 
FEATURZ=(MODELZ2,ANKEY,PFK), 3277 FEATURES X 
ISTATUS=ACTIVE, WILL ACTIVATE WITH CLUSTER X 
ADDR=6060C1Cl, SELECTION ADDRESS FOR T2 X 
POLL=4940C1C1 POLL ADDRESS FOR T2 

$SCT3 TERMINAL TERM=3277, 3277 DISPLAY STATION Xx 
FEATURZ=(MGDEL2,ANKEY,PFK), 3277 FEATURES x 
ISTATUS=ACTIVE, WILL ACTIVATE WITH CLUSTER Xx 
ADDR=6060C2C2, SELECTION ADDRESS FOR T3 X 
POLL=4040C2C2 POLL ADDRESS FOR T3 

SSCT4 TERMINAL TERM=3277, 3277 DISPLAY TERMINAL Xx 
FEATUR2=(MODEL2Z,ANKEY,PFK2), 3277 FEATURES X 
ISTATUS=ACTIVE, WILL ACTIVATE WITH CLUSTER X 
ADDR=6060C3C3, SELECTION ADDRESS FOR T4 X 
POLL=4040C3C3 POLL ADDRESS FOR T4% 

SSCT5 TERMINAL TERM=3286, 3286 PRINTER X 

*¥¥*® DIRECTN=OUT is required by VTAM. 
DIRECTN=OUT, REQUIRED FOR VTAM Xx 
ISTATUS=ACTIVE, WILL ACTIVATE WITH CLUSTER Xx 
ADDR=6060C4C4, SELECTION ADDRESS FOR T5 X 
BFRDLAY=13, ALLOW 13 SECONDS TIME DELAY Xx 
POLL=4040C4C4 SELECTION ADDRESS FOR T5 

¥¥*X*% Terminal addresses must be sequential. No address may be skipped 

and no device should be attached to the 3271 controller that is 
not defined in the NCP generation. 
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SAMPLE NCP FOR 3705 


CLUSTER MACRO FOR 3275 


DE HE HE KE EE HE HE HEE HE EE HE HE DE SE DE SE DE DE DE HE EE SE DE DE DE DE DE IE DE HE EK HE EK DE DE SE DE HE SE SE DE DE DE DE HE DE IE DE DE HE DE HEE EE KE HE HEHE HEH KK 


95€3275 CLUSTER CUTYPE=3275, 3275 DEFINED X 
FEATURZ=(MODEL2,ANKEY,PFK,PRINTR), 3275 FEATURES X 
CRITSIT=YES, SEND CLOSE-DONN MESSAGE X 
GPOLL=CI1CI7F7F, GENERAL POLL ADDRESS X 
ISTATUS=INACTIVE, DO NOT ACTIVATE 

HEHE HE HK HK HEHE HEHE HK HE HK HE HE HE HE EE EE EE HE HE EK HK HE KE DE EE HK HE EE HE HE HE HE HE HE HE DE HEE HE KE HE HEE HE HEHE HK HE HEHE HK HHH HHH HH 

x TERMINAL MACROS 

x 

SSCT6 TERMINAL TERM=3275, 3275 DISPLAY STATION X 
ISTATUS=ACTIVE, WILL ACTIVATE WITH CLUSTER X 
BFRDLAY=13, REQUIRED IF 3275 HAS PRINTER X 
ADDR=61614040, SELECTION ADDRESS FOR T6 X 
POLL=C1C14040 POLL ADDRESS OF TERM T6 


G320-6028 (2779) SNA PRODUCT INSTALLATION GUIDE PAGE 7-33 


SAMPLE NCP FOR 3705 
GROUP SPECIFICATIONS FOR SDLC LEASED LINES 
HE 3 3 HE 3 DE DE HE DE DE HE DE HE DK EDK 3 HE DE DK HE DK HE DE DK DE DK DE DK DE DHE DHE DK DE DK 3 DK 3 DE DE DE DE DK DE DE DE DK EDK DE DK EDK DE OK EDK DE DE DK DE DE DK EK IE 


SDLCGP1 GROUP LNCTL=SDLC, SYNCHRONOUS DATA LINK 


X 
DIAL=NO, REQUIRED FOR LEASED LINE X 
REPLYTO=1.0, USE DEFAULT X 
TYPE=NCP NCP ONLY 
LINE MACRO SPECIFICATION - HALF-DUPLEX, LEASED | 
¥ MAY BE USED FOR 3790- 3600, 3650, 3770, 3270 AND 3767 % 


HEH HE HEH HEHE HK HE HE HK HE KE EE IKE KE HK KEE HK EK KE KE EK EK HK KE EK KEK KK HK HK HK HK KE HEH IKE HK HK HK HE HH HH HK KKH HK HK HK KK 


XX*¥ The following line will also work as a manual switched backup 
line if the ENABLTO parameter on the BUILD macro is increased 
from the default to at least 60. 


SDLC1 LINE ADDRESS=(022), TRANSMIT AND RECEIVE ADDRESS x 
DUPLEX=HALF, MODEM IS STRAPPED FOR HALF DUPLEX X 
SPEED=1200, LINE SPEED TO BE 1200 OR HIGHER x 
NRZI=NO, x 
NEWSYNC=NO, 3 Xx 
CLOCKNG=EXT, MODEM PROVIDES CLOCKING x 
POLLED=YES, x 
RETRIES=(5) 5 RETRIES PER RECOVERY SEQUENCE 

LINE MACRO SPECIFICATION - HALF-DUPLEX, LEASED, INTERNAL CLOCK 

x MAY BE USED FOR 3790, 3600, 3650, 3770, 3270 AND 3767 x 

DE HEHE DE DE DE SE EE SEE HE HE DE DE DE EE EEE EE HE SEE DE HE DE EE SE HE HE HE DE DE SE DE DEE SE DE HE HE EK SEE ER EE IEE EE EEK HK HEH HK HEH HE HK 

SDLCLA LINE ADDRESS=(0246), TRANSMIT AND RECEIVE ADDRESS ~ 
DUPLEX=FULL, x 
SPEED=1200, CSB TIMER IS 1200 x 
NRZI=YES, REQUIRED FOR INTERNAL CLOCKING x 
NEWSYNC=NO, x 
CLOCKNG=INT, INTERNAL CLOCKING x 
POLLED=YES, | x 
RETRIES=(5) 5 RETRIES PER RECOVERY SEQUENCE 
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SAMPLE NCP FOR 3705 


SDLC LINE MACRO SPECIFICATION FULL DUPLEX LINK 


HE HE HE HEHE HEE HE HE SE EE SE EE EE EE KE DE HE IE EE KE EE DEE IE DE KE EE DEE DE SEE SE EK DE IK DE HE HE EE SEE HE HE DE DEE DE KE SEE HE DE EE EE EK 


SDLC2 LINE ADDRESS=(€020,021), TRANSMIT AND RECEIVE ADDRESSES X 
DUPLEX=FULL;, MODEM STRAPPING IS FULL-DUPLEX X 
SPEED=2400, LINE SPEED IS 2400 BPS X 
NEWSYNC=NO, CHECK IF MODEM REQUIRES IT X 
CLOCKNG=EXT, MODEM PROVIDES CLOCKING X 
NRZI=NO, DEPENDS ON MODEM X 
POLLED=YES, X 
RETRIES=(5) 5 RETRIES PER RECOVERY SEQUENCE 


SDLC DUPLEX LINE SPECIFICATION CSINGLE PORT) 


FE HE HE IE HK HE HE HE DE HE HE HEE HE HE HE DE IE DE HE DE HE HE EE DE EE DE IE HE HEE HE HE HE EE HE IE DE HE EE DE SE DE IE EE IE DE HE DEE EE EE DE SE KE EE EK EEE 


SDLC3 LINE ADDRESS=(046), _ TRANSMIT AND RECEIVE ADDRESS X 
DUPLEX=FULL, MODEM STRAPPING IS FULL DUPLEX X 
SPEED=2400, SPEED IS 2400BPS X 
CLOCKNG=EXT, MODEM PROVIDES CLOCKING X 
POLLED=YES, X 
RETRIES=(5) 5 RETRIES PER RECOVERY SEQUENCE 

SERVICE MACRO FOR SDLC LINK 

x EACH PU MUST BE IN SERVICE ORDER LIST 

% ¥% 


HE HE HE DE DE DE DE HE DK DE DK DE DE DE DE DE DK DK DE DE DE DE DE DE DE DK DE DE IE DE DE DC DE DE HE DC DE DE DK DE DK DE IE DE DE DK DE DK DE DE DE DE DE DE DE DE OK HK DE DE DE DEE KK HC 
SERVICE ORDER=CPU3S790Y,CL3600,STOREL,PU3770R,HD3767,CL5270D) 
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SAMPLE NCP FOR 3705 
3790 PU MACRO SPECIFICATION 


Mettttiterttttttssttsrrttttteterttrstetiterettte ts retristtttsetsettst ree: 


PU3790Y PU ADDR=Cl, 
_  PUTYPE=2, 
ISTATUS=INACTIVE, 
MODETAB=MODE3790, 
MAXOUT=7, | MAX PATH INFO UNITS BEFORE RESPONSE 
MAXDATA=265, MAXIMUM AMOUNT OF DATA 


KKK KK XK 


¥¥% MAXDATA = 265 is required for 3790 


PASSLIM=7, 4% ¢ 
RETRIES=(,1,4) 4 RETRIES, 1 SECOND BETWEEN 


3790 LOGICAL UNIT SPECIFICATIONS 


HE HEHE EE HE HE HK HEHE DE DE DE HE DE DE DE DEE DE HK DE DK DE IE DE IE DE DE DK DE DE DE IE DE DE DE DE DE 3K 3E DE DE DE DEE DEE DE DK DE IE DK DE DE DK DK DE DK DE DE DE DE DE DK DE HE OE KK 
INBATCHY LU LOCADDR=1,PACING=(2,2),VPACING=(4,2) ,ISTATUS=ACTIVE 
BT3790Y1 LU LOCADDR=2,PACING=(1,1),VPACING=(2,1),ISTATUS=ACTIVE 
BT3790Y2 LU LOCADDR=3,PACING=(7,7),VPACING=(10,7),ISTATUS=ACTIVE 
CM3790Y1 LU LOCADDR=4,PACING=(0),VPACING=(0),ISTATUS=ACTIVE 
CM3790Y2 LU LOCADDR=5,PACING=(0),VPACING=(0),ISTATUS=ACTIVE | 
RJELY LU LOCADDR=8, PACING=(3,3),VPACING=(4,3),ISTATUS=ACTIVE 
RJE2ZY LU LOCADDR=9,PACING=(3,1),V¥PACING=(4,2),ISTATUS=ACTIVE 
RJESY LU LOCADDR=10,PACING=(1,1),VPACING=(2,1),ISTATUS=ACTIVE 
RJEGY LU LOCADDR=11,PACING=(1,1),VPACING=(€2,1),ISTATUS=ACTIVE 
INQLY LU LOCADDR=12, PACING=(1,1),VPACING=(2,1),ISTATUS=ACTIVE 
INQ2Y LU LOCADDR=13,PACING=(1,1),VPACING=(2,1),ISTATUS=ACTIVE 
INQ3Y LU LOCADDR=14,PACING=(1,1),VPACING=(2,1),ISTATUS=ACTIVE 
INQ4Y LU LOCADDR=15,PACING=(1,1),VPACING=(2,1),ISTATUS=ACTIVE 
INQ5Y LU LOCADDR=16,PACiNG=(1,1),VPACING=(2,1),ISTATUS=ACTIVE 
BP3790Y1 LU LOCADDR=17,PACING=(1,1),VPACING=C€2,1),ISTATUS=ACTIVE 
BP3790Y2 LU LOCADDR=18,PACING=(1,1),VPACING=(2,1), ISTATUS=ACTIVE 
UP3790Y1 LU LOCADDR=19,PACING=(1,1),VPACING=(2,1),ISTATUS=ACTIVE 
UP3790Y2 LU LOCADDR=20, PACING=(€1,1),VPACING=(2,1),ISTATUS=ACTIVE 


NOTE - If ACF/VTAM, all pacing parameters will be changed to (m,1). 


After generating the NCP witH the above definitions, change the 
source to VITAM to indicate 3 pacing of (m,1). 
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SAMPLE NCP FOR 3705 


3600 CLUSTER MACRO SPECIFICATION 


HIE HE HEHE HEHE HE HE HE HEE DE EE HEE HEE HE KEK DE IE EK SE DEE DE DE SE DE DE SE DE DE DE DE IE HE KE HE HE DE DE EE EE HE EK KE EK EE EEK KKH 


CL3600 PU ADDR=Cl, pu ADDRESS = A CEBCDIC) X 
PUTYPE=2, X 


**¥*® The MAXDATA value should be 9 greater then the buffer value 
defined in the 3600 CPGEN. The retries operand for the SDLC link 
should be less than the Time-Out value specified in the CPGEN. 


MAXDATA=265, MAXIMUM AMOUNT OF DATA X 
MAXOUT=7, MAX PATH INFO UNITS BEFORE RES X 
PASSLIM=7, X 
ISTATUS=INACTIVE, ACTIVATE VIA OPERATOR X 
RETRIES=(,4,2), SHOULD BE LESS THAN 20 SECONDS X 


PACING=(0), 
VPACING=(0) 


3600 LOGICAL UNIT SPECIFICATIONS 


HE DE HEHE HE HE HEE HE DE EEE HE KE HEE EE HK EK EK EE HEE EK EE KE EE EE KE HE KE HEE HK EK EK HEHE HK KKH KEK KK KKK KKK 


FALUAISS LU LOCADDR=1, FA REQ'*D FOR 1ST LU X 
PACING=(3,1), X 
VPACING=(6,1), x 
ISTATUS=INACTIVE 

FALUA2 LU LOCADDR=2, X 
ISTATUS=ACTIVE 

FALUAS LU LOCADDR=3, X 
ISTATUS=ACTIVE 

FALUAS LU LOCADDR=6, | X 


ISTATUS=ACTIVE 
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SAMPLE NCP FOR 3705 
3650 CLUSTER MACRO SPECIFICATION 


DE HE EE HEE HE DE HE HEE HE IE HE DE HE DE IE HE DE HE DEE DEE HE DE HE DE IE HE DE HE DE HE DE EE EK IEE DE EDK IE DE IEE DE IE DE DE DE DE EEE EE EDEN EK EEK 


STORE] PU ADDR=C4, PU ADDRESS = D CEBCDIC) Xx 
PUTYPE=2, x 
MAXOUT=7, MAX PATH INFO UNITS BEFORE RES x 

*X*% MAXDATA = 265 is required for 3650 
MAXDATA=265, 6 BYTE TH, 3 BYTE RH, 256 BYTE RU X 
PASSLIM=7, | | ee! x 
ISTATUS=INACTIVE, ACTIVATE VIA OPERATOR x 
RETRIES=(,10,3), SHOULD BE LESS THAN 60 SECONDS x 
PACING=(1,1), x 


VPACING=(2,1) 


3650 LOGICAL UNIT SPECIFICATIONS 


HE HE HK HE DE IE EE DE IE IE EE HE DE DE DE DE EEE DE EE IE DE DE DE DE DE DE DE HE DE EK DE DE DEE DE DE SE DE DE HE DE DE DE DK DE DE DE DK DEE DE DE EE EE EE EE EK KEK 


RESTORE] LU LOCADDR=1, REQ'D FOR IST LU X 
PACING=(7,1), IMPROVES LOADING 3651 x 
VPACING=(7,6), X 
BATCH=YES, X 


ISTATUS=ACTIVE 
QECREDIT LU LOCADDR=2,MODETAB=CRMODTB, DATASW=SYSTEM7 
QE365311 LU LOCADDR=3 
QE365312 LU LOCADDR=4% 
QE365313 LU LOCADDR=5 
QE365324 LY LOCADDR=6 
QE365315 LU LOCADDR=7 
QE327511 LU LOCADDR=8 
QE327512 LU LOCADDR=9,PACING=(2,1),VPACING=(3,1) 
QE327513 LU LOCADDR=10,PACING=(2,1),VPACING=(3,1) 
QE327514 LU LOCADDR=11,PACING=(2,1)3,VPACING=(3,1) 
QE327515 LU LOCADDR=12,PACING=(2,1),VPACING=(3,1) 
Q@EINT1 LU LOCADDR=13,PACING=(2,1) 
QEINT2 LU LOCADDR=14 


PAGE 7-38 SNA PRODUCT INSTALLATION GUIDE G320-6028 (2/779) 


SAMPLE NCP FOR 3705 


3777 PU SPECIFICATION 


Lo? £2 2.0 0.0. 2.0.0,. 0.0.0. 0.0.0.0.0.0. 0.0. 0,.0.0.0.0 0.2. 0.5.0 0.5.0.0. 0,.0.0.2.0.0.0.0.0,0. 9.0.5.2. 0.2.0,.0. 0.0.0. 2,.0 2.5.0. 5.0.5.0, 5,0)) 


PU3777R PU ADDR=C2, 
ISTATUS=ACTIVE, 
PACING=(1,1), 
MODETAB=RJEMODE, 
VPACING=(2,1), 
MAXDATA=521, MAXIMUM AMOUNT OF DATA 


mM KK KW KW MK 


¥¥*% MAXDATA = 265 or 521 may be specified for 3777. 


MAXOUT=1, MAX PATH INFO UNITS BEFORE RES 
PASSLIM=1, 
PUTYPE=2 DEFINE AS PU 


«K 


3770 LU SPECIFICATION 


% IBM 3777-1 REQUIRES ONE LU * 
HE EH HEHE HK HE HEE HEHEHE HEH HEHE HK HE EE IE HE HK HEH HK HEH HK HK HEH HK HEH HEHE HEH HEH HK HEHEHE HE HEHE HK HE HEH HK HEHEHE HEHE HHH 


LU3777R LU LOCADDR=1, X 
ISTATUS=ACTIVE, X 
SSCPFM=USSSCS, REQUIRED FOR 3770 X 
USSTAB=ASUSST70, USSTAB FOR 3770 X 
BATCH=YES BATCH DEVICE 
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SAMPLE NCP. FOR 3705 
3770 PU SPECIFICATION CMLU) 
HE 3 3 HEE DE DE DE DK HE DE DE DK DEE DK DEE DE DE DK DE DE BE DE DE DEE DE DE DE DE DE DK DK DE HE DE DE DK HE DE DE OK DK EE KK KEK KKK 


HE HE HK HE HEE HEE EE EEE EE EEE EE EE EE EE EE HE IE HE EK EEE EE EE EE EE KE EE EE EE DE EE EE DEE EK EE EK EEE KE 


x ¥ 

* | PU SPECIFICATION FOR IBM 3770 PROGRAMABLE x 

x x 

DE DE HE HE DE DE DE HE ED HEE DE DE HEE DE DE HK DE DE HEE DE HE DE DEK HEE HE HK HEH HK HEHEHE KE HK HK HK HK KH KK KKH 

PU7OP PU ADDR=Cl, PU ADDRESS = A CEBCDIC) X 
PACING=(1,1), X 
ISTATUS=ACTIVE, x 
VPACING=(2,1), X 
MAXDATA=265, MAXIMUM AMOUNT OF DAT* X 
MAXOUT=1, MAX PATH INFO UNITS BEFORE RES x 
PASSLIM=1, X 
PUTYPE=2 DEFINE AS PU 


3770 LU SPECIFICATION CMLU) 


Pete ets test ttt tists tet tt ttt est ttt ttit tit ttetrsititittietttttti ttt ttt 


P7OLUI LU LOCADDR=1, X 
MODETAB=MODE3770, REQUIRED FOR 3770 SLUL Xx 
SSCPFM=USSSCS, REQUIRED FOR 3770 Xx 
USSTAB=ASUSST70, USSTAB FOR 3770 RX 
ISTATUS=ACTIVE, X 
BATCH=YES BATCH DEVICE 


HK HK HE HEHEHE IE HE HE HK HE EE EE HE DE IE EE DK KK EEK EE EK HEE EE EK EEK KEK EE EE EE EK EE KEE EE EE EK KEK KKK 


P70LU2 LU LOCADDR=2, X 
SSCPFM=USSSCS, REQUIRED FOR 3770 X 
USSTAB=ASUSST70, USSTAB FOR 3770 x 
ISTATUS=INACTIVE, x 
BATCH=YES BATCH DEVICE 

P70LU3 LU LOCADDR=3, | > 
SSCPFM=USSSCS, REQUIRED FOR 3770 x 
USSTAB=ASUSST70, USSTAB FOR 3770 Xx 
ISTATUS=INACTIVE, | x 


BATCH=YES BATCH DEVICE 
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3271 SDLC PU SPECIFICATION 


SAMPLE NCP FOR 3705 


HE HEHE HE DE HE HE HE DE HE 3 DE IK DE IE HE DE HEHEHE DE DE DE DED DE I IK SE IE DE DE DE HE HE HEE EE DE DE DE DE IE HE DE HE HE HEE HE HE HE HE HE HE HE NE 3 DE DE HE DEE EE HE HH 
CL3270D PU 


¥** MAXDATA 


MAXDATA=261, 


ADDR=C5, CUNTROLLER ADDRESS= E 
PUTYPE=1, REMOTE NCP 
BNNSUP=3270, REQUIRED FOR 3270'S 


SSCPFM=USS3270, 
MODETAB=S3270, 


261 is required for 3270 


3271 LU SPECIFICATION 


CEBCDIC) 


REQUIRED IF LU IS TO BE ACQUIRED 


MAXIMUM AMOUNT OF DATA 
ISTATUS=INACTIVE, ACTIVATE VIA OPERATOR 
PASSLIM=12, MAXIMUM OUTBOUND PIU 
MAXOUT=7, MAX PATH INFO UNITS 
USSTAB=ASUSST70, LOGON USSTAB 
RETRIES=(€,10,4), 4 RETRIES, 10 SECONDS BETWEEN 
PACING=(1,1) 


Mm KKK KK 


DE IK HE HK HE IE HE DE HEHE HK HE HE HE IE EE HE HE EK EE HE HE KE EK HE EE KE EK DE EE DE HE HE HE EE HK EE KE KE KE EK EE EE HEHE HEH KE HH HEH HHH 


CL3270D0 
CL3270D1 
CL3270D2 
CL3270D3 
CL3270D4 
CL3270D5 
CL3270D6 
CL3270D7 


LU 
LU 
LU 
LU 
LU 
LU 
LU 
LU 
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LOCADDR=0,ISTATUS=ACTIVE,USSTAB=VUSS3270 
LOCADDR=1, ISTATUS=ACTIVE, USSTAB=VUSS3270 
LOCADDR=2, ISTATUS=ACTIVE, USSTAB=VUSS3270 
LOCADDR=3, ISTATUS=ACTIVE,USSTAB=VUSS3270 
LOCADDR=4, ISTATUS=ACTIVE, USSTAB=VUSS3270 
LOCADDR=5, ISTATUS=ACTIVE,USSTAB=VUSS3270 
LOCADDR=6, ISTATUS=ACTIVE,USSTAB=VUSS3270 


LOCADDR=7,ISTATUS=ACTIVE NO USSTAB FOR PRINTER 
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SAMPLE NCP FOR 3705 
3274 SDLC PU SPECIFICATION 


HE HE DE HE DE DE HE HE DE DE HE HE DE NE DE DE HE DE DE HE DE DE DEE DE DE HE DED DE HE DE DE DE HE DE DE HE DE DE HE DE DK HE DE DE DK HE DE DE DE DE DE HK HE DE DHE IK HE HEE HEE EE HEH 
SDLC3274¢ PU ADDR=Cl, 
PUTYPE=2, 
ISTATUS=ACTIVE, 
MODETAB=MT3274C, 
SSCPFM=USSSCS, 
MAXOUT=7, MAX PATH INFO UNITS BEFORE RESPONSE 
MAXDATA=265, MAXIMUM AMOUNT OF DATA 
PASSLIM=7, | | 
PACING=0, FOR DISPLAYS AND DSC PRINTERS 
VPACING=0, FOR DISPLAYS AND DSC PRINTERS 
DISCNT=CNOD), 
RETRIES=(€,1,4) 4 RETRIES, 1 SECOND BETWEEN 


MM KKK KK KK KW MK 


HE HE HK HE DE DE HE IE DE HE DE IE DE DE DK HE HE IE DE HE DE HK IE DE DE DE IE DE HE DE DE HE DEE DE EK DE DE SE DE DE DE EE IE DE OK HE EE DE DE DE HE DE DK DE EE DE HE EE EEE EEK HK 


* % 
x LOGICAL UNIT SPECIFICATIONS 3 
¥* | * 


HEHE HEHEHE DEH HE HEHE DE DK HEHE HE IE IE DE DK DDE HE HE IK DD HEHE HE DE DK 3 HE HE IE DED DHE HE HE IE DDK DH HE HE IK DK IE HE DE DDK DE HC HE DE DE DK DK DEE HE DE DK DK IK 
SDLCPAO01] LU LOCADDR=2, USSTAB=USST3270,DLOGMOD=T3278M4 
SDLCPA02 LU LOCADDR=3,USSTAB=USST3270, DLOGMOD=T3278M4 
SDLCPA03 LU LOCADDR=4,USSTAB=USST3270, DLOGMOD=T3278M3 
SDLCPA0G LU LOCADDR=5, USSTAB=USST3270, DLOGMOD=T3278M3 
SDLCPA05 LU LOCADDR=6,USSTAB=US5T3270,DLOGMOD=T3278M2 
SDLCPA06 LU LOCADDR=7,USSTAB=USST3270,DLOGMOD=T32738M4 
SDLCPAO?7 LU LOCADDR=8, DLOGMOD=DSC4K,MODETAB=MTNDSPTR 
SDLCPA08 LU LOCADDR=9,DLOGMOD=SCS,MODETAB=MTNDSPTR 
SDLCPBO1 LU LOCADDR=10,USSTAB=USST3270,DLOGMOD=T3277M2 
SDLCPBO2 LU LOCADDR=11,USSTAB=USST3270, DLOGMOD=T3277M2 
SDLCPBO03 LU LOCADDR=12,USSTAB=USST3270,DLOGMOD=T3277Mc 
SDLCPBO04 LU LOCADDR=13,USSTAB=USST3270,DLOGMOD=T3277M2 


NOTE - USSTAB should be specified st LU level to eliminate sending 
USS Message 10 to printers. 
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SAMPLE NCP FOR 3705 


HK KH HEH HHH HEHEHE HE HE HE HE HK EE HE HE HE HE DE EK DE HK NEE DE EE EE HE DE DE DE DE DE DE NE DE HE DEE HE HEE DE DE DE DE DE DE DE HE EE EEE EK EEK HK 


* 
% 
% 


PU MACRO SPECIFICATION FOR 3276 


% 
% 
% 


DE HE HEE DE HE DE HE DE IE HE DE DE DE HE IE DE EE DE DE HE HE EK DE DE DE DE DE IE HE SE DE DE DE DE DE DE DE DE DE DE SE DE DE IE DE DE SE DE DE SE DEK DE DE DE DE DE DE DE DE DEE EK EE HK 
SDLC3276 PU 


ADDR=C2, 
PUTYPE=2, 


ISTATUS=INACTIVE, 


MODETAB=MT3276, 
SSCPFM=USSSCS, 


Mm KK KK KR KK KK OK 


MAXOUT=7, MAX PATH INFO UNITS BEFORE RESPONSE 
MAXDATA=265, MAXIMUM AMOUNT OF DATA 

PASSLIM=7, 

PACING=0, FOR DISPLAYS 

VPACING=0, FOR DISPLAYS 

DISCNT=CNO), 

RETRIES=(€,1,43 4 RETRIES, 1 SECOND BETWEEN 


DE HE HE HE HE DE HE IE HE HE SE HE IE DE EE EE DE EE HE EE HE HEE DE EE EE HE EK HE EE HE EE KE DE DE DE EK DE DE DEK DE SE DE DE DE DE DE NE DE DE DE DE OE DE DEE EE EK 


Xx 
% 
% 


LOGICAL UNIT SPECIFICATIONS 


% 
% 
* 


HK HE HE HE HE HE HEHE HE HE HE HE DE EH HE HE HE HK DE HE IE HE HE HE HK HE HE KE EK IK HE HE DE HE EE HE EE EE HE EE DE DK DE DE DE DE DE DE HK DE DE DE DE EE EEK EERE 


SDLC76P1 
SDLC76P2 
SDLC76P3 
SDLC76P4 
SDLC76P5 
SDLC76P6 
SDLC76P7 
SDLC76P8 


LU 
LU 
LU 
LU 
LU 
LU 
LU 
LU 


LOCADDR=2,USSTAB=USST3270,DLOGMOD=T32738M2 
LOCADDR=3, USSTAB=USST3270,DLOGMOD=T3278M2 
LOCADDR=4, USSTAB=USST3270, DLOGMOD=T3278M2 
LOCADDR=5, USSTAB=USST3270, DLOGMOD=T3278M2 
LOCADDR=6, USSTAB=USST3270,DLOGMOD=T3278M2 
LOCADDR=7,USSTAB=USST3270, DLOGMOD=T3278M2 
LOCADDR=8, DLOGMOD=DSC4K,MODETAB=MTNDSPTR 
LOCADDR=9, DLOGMOD=SCS,MODETAB=MTNDSPTR 


NOTE - USSTAB should be specified at LU level to eliminate sending 
USS Message 10 to printers. 
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SAMPLE NCP FOR 3705 
3767 PU SPECIFICATION 


| ETT PETTTETICCTITECETETETTETETT TESTE TTTET TTI TTTETTTETELETTETTET ETT T 
HD3767 PU  ADDR=C2, PU ADDRESS = B CEBECDIC) X 
PUTYPE=l, TERMINAL NODEX X 


¥¥* MAXDATA = 261 is required for 3767 


MAXDATA=261, MAXIMUM AMOUNT OF DATA X 
MAXOUT=1, MAX PATH INFO UNITS BEFORE RES X 
PACING=(1,1) 


3767 LU SPECIFICATION 


IBM 3767 REQUIRES ONE LU % 
HE HE HE HEHEHE DE DE HEHE HEHE DE DE HEHEHE DK HE EEK HK HE HE EEK DE DE HE DE DE DE DE HE EC HE DE DE DE DE DE DE DE DE DE DE DE HE DE DK DE DE HEE DE DEI EEE HK HEHE 
TR3767HD LU LOCADDR=0, 

ISTATUS=ACTIVE, 

USSTAB=ASUSSTAB, 

SSCPFM=USSSCS, 

MODETAB=ALL3767_ OPTIONAL, DEPENDING UPON APPLICATION 


<x KK XK 
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SAMPLE NCP FOR 3705 


SDLC DIAL GROUP SPECIFICATIONS 


HK HK HH HK HEH HE EK HE KK EH HK EK KEK KK HK IE HK HE HK EE HE KE IK KE EE EE KE EK IK EK KEK EH EE EH KKK KKH KH 


SDLCGP2 GROUP LNCTL=SDLC, SYNCHRONOUS DATA LINK X 
DIAL=YES, REQUIRED FOR DIAL LINE X 
TYPE=NCP NCP ONLY 


SDLC LINE MACRO SPECIFICATION - HALF-DUPLEX, SWITCHED 


is MAY BE USED FOR 3790, 3650, 3770, AND 3767 x 
HEE HEHEHE HE HEHE DE EEE EK IEE DEE EEK HK HEE HEH HK HK EHH HK KH HK HK HHH HHH HK HHH 
SDLC4& LINE ADDRESS=(023), TRANSMIT AND RECEIVE ADDRESS X 
CALL=INOUT, REQUIRED BY VTAM FOR IN/OUT x 
DUPLEX=HALF, MODEM IS STRAPPED FOR HALF DUPLEX xX 
SPEED=1200, 3601 TO OPERATE AT 1200 BPS x 
NRZI=NO, UNITS NOT SPECIFIED WITH NRZI Xx 
CLOCKNG=EXT, MODEM PROVIDES CLOCKING X 
POLLED=YES, x 
RETRIES=(5,10,3), 5 RETRIES PER RECOVERY SEQUENCE X 
VPACING=C2,1) SEND 2 FOR 1 
DEH HE DE HEE DE HEHEHE DE DE DE DE DE DE DE DE DE DE DE DK DEED DE DE EE DE DE DE DE DK HK DE DE DE DK DE DK DE DE DE DK DE DE DE DK DDK OR DEE OK DE HE HE EEE EE 
x x 
% NO SERVICE ORDER FOR SDLC SWITCHED LINE * 
x 


SS St tt oo ot 22.2.5. 0.0.8.0, 0.0, 0,0, 0, 0.0.0.0, 0.0.0.0. 0.0.0.0, 0.0.0.0. 0.0.0. 0,0,0,0.0.0.0,0.0, 0, 0.0.0.0. 0.0.0. 0.0.0.0, 0.0. 0.0.8.5.) 


PU MACRO SPECIFICATION FOR SWITCHED LINK 


HE HE HE DE HEHE DE EE DED HE DE DE DE DE DE DK DED HEE HE EEK KE EE HK KK EE EH HK HH EK HHH EEE HEH HK HK HK EH EHH HR 
PUL PU PUTYPE=C1,2), SUPPORT TYPE 1 AND 2 PU'S x 
MAXLU=60 MAXIMUM NUMBER OF LU'S FOR LINE 


*¥*¥*% MAXLU = must be greater than total LU's on PU. 
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SAMPLE NCP FOR 3705 


SPECIFICATIONS FOR REMOTE NCP 


e GROUP MACRO SPECIFICATIONS x 
HED HEHEHE DE HE HE HE HK HE DE IE DE DE HEE DE HEE IIE DE HE EE HK DE DK DE IIE HE DHE DE DK HK HE DE OE I HE 3 DHE DEK DEE DE IK IE DE IK DE DE IE EEK 
SDLCGP3 GROUP LNCTL=SDLC, SYNCHRONOUS DATA LINK X 
DIAL=NO, REQUIRED FOR LEASED LINE x 
TYPE=NCP NCP ONLY 
HE DE HEHEHE DEE DE DE HE DE DE DE DE OK DK HK OE DE DK HEE DK DE DE DK DE DE DK HE DE DDE DE DE BEDE EOE DDK IE DE DK DK DE DE DK DE DK EDC DK DE OE DK DE DE DEK IK EEE 
x , x 
% FULL DUPLEX SDLC LINE SPECIFICATIONS FOR REMOTE NCP INTERFACE | ss 
x x 


HEE HEH IE HE EE EE HE EE DE EE EE EE SE DEE DE DE HE SE DE DE IE HE HE DE DE EE DE EE DE EE DEE EK EE IE DE DEK EE EK EK EE EEE EK EK KKK 


REMLN LINE ADDRESS=C€040,041), TRANSMIT AND RECEIVE ADDRESSES x 
NEWSYNC=NO, DO NOT USE WITH REMOTE NCP x 
DUPLEX=FULL, MODEM STRAPPING IS FULL DUPLEX xX 
SPEED=2400, SPEED IS 2400BPS | X 
CLOCKNG=EXT, MODEM PROVIDES CLOCKING X 
POLLED=YES, X 
RETRIES=(7) 7 RETRIES PER RECOVERY SEQUENCE 
HEHE HE HEHEHE HEE HE DHE DE IEE HEH DEE HEE EE EEE EE EEK HEE DE DE DE DEK EK HE DE DE DE DE EE DE KK EE EEK EK KEN 
* x 
*® SERVICE ORDER FOR DUPLEX LINK x 
x * 
HEHEHE HEHEHE HE DE HEHE HE DE HEHE HE DE HEHE DE DE DK DE HE DE DK DE DEE DE HE EE HK IE DE DEK DK EEE KE KE EK HK HEE HE EEK DEE DED DKK IE IE 
SERVICE ORDER=NCPYVR ONLY ONE REMOTE CONTROLLER 
3 HK 3 HE DE HE DK HE DE DE HE 3 HK DE DE DEE DEE DE DE DED HE DE DE 3 DE DK DE DE DDE DK ED 3 DE DE DK KD IE DK EDK 3 DK DE IE DK DE DK DE OK OO OEE 
* PU4 CINNODE) SPECIFICATION FOR REMOTE NCP x 
x % 
HEHE HE IEE HE EE HE HE EE HEHE EI HEE EE HEHE HEE DE HEHE EK HE HEH DE HE DE EE KE DEE EK EE DEK EK EK EEK EK EH 
NCPVR PU ADDR=Cl1, CONTROLLER ADDRESS= A CEBCDIC) X 
PUTYPE=4, REMOTE NCP 7 X 
MAXOUT=7, MAX PATH INFO UNITS BEFORE RESTORE X 
RETRIES=(,10,5), 5 RETRIES, 10 SECONDS BETWEEN X 
SUBAREA=5, REMOTE SUBAREA ADDRESS=5 X 
DATMODE=FULL FULL DUPLEX DATA TRANSFER 
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SAMPLE NCP FOR 3705 
BLOCK HANDLER DEFINITIONS 


DHE HK HEHE HK HEHE HE IE HE HE HE HEE EE EE HE EK HE HE KE HK HE EE HE EE HE EE EK EE KE HK EEE EK KKK EK EE KKK RH K KK KKK 


x BLOCK HANDLER DEFINITIONS FOR SDLC/BSC PATH FUNCTION * 
¥* % 


STARTBH STARTBH BHEXEC=PT3 
SPAFPT3 SPAFPT3 
ENDBH ENDBH 
SPACE 2 
BHSET BHSET EXEC=YES,PT3=STARTBH 


GENEND DELIMITER 


3 HEE DE DE DEE HK EE DE DE DE EE DE DE DE HE HEE DE DE DK DE DE EE DE DK DE DE DEE DEE KK DE DD DK DE DE DEE KK DEE KEK EK OK DE OE DE OE EK EEE KKH 
GENEND 
END 
7% 
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SAMPLE NCP FOR 3705 
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6320-6028 (2779) 


CHAPTER 8 


REFERENCES 
DOS/VS VTAM System Programmers Guide 
DOS/VS VTAM Reference Summary 
ACF/VTAM System Programmers Guide (CDOS) 
ACF/VTAM Installation Guide (DOS) 
ACF/VTAM Reference Summary (CDOS) 
OS/VS1 VTAM System Programmer's Guide 
OS/VS VTAM Reference Summary 
OS/VS2 SVS VTAM System Programmer's Guide 
OS/VS2 VTAM System Programming Library: VTAM 
ACF/VTAM System Programmers Guide 
ACF/VTAM Installstion Guide 


ACF/VTAM Reference Summary 
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SWITCHED SNA DEFINITIONS 


> SWITCHED SNA DEFINITIONS 


GC27-6957 


GX27-0033 


$C38-0268 


$€38-0270 


SX27-3022 


GC27-6996 


GX27-0034 


GC27-0049 


GC28-0688 


$€38-0258 


$C38-0269 


$X27-3021 
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SWITCHED SNA DEFINITIONS 
VBUILD MACRO SPECIFICATIONS - SWITCHED 


% % 
HE HE HEHE DE HEH HE DK IK HE DE DE HE SE DE HE HE DE DE HE HE DE HE HE EEE DE DE HE DE DE DE DE SE DE DE DE DE HE DE DE HE DE DE EE DE DE HEE EK DE DE KE DE DE DE DE DE DE DE DE DE EE EEK 
DE HE DK HE IE DE HE DE DE DE DE ESE DE DE SEE HE DE HE DE DE DE DE DE ESE EE ESE EE SEE SE DE DE SE DE SE DE DEE SE NE SE DE DE EE EE ESE HE SE EE EE EE EEE EK MEE 
DE HE HE HE HEHE HE HK HK EE HE HE HE EK EK DE KE HE EE SE IE HE DE DE HE DE DE DE DE DE KK IE SEE HE HE EK SE HE KE SKE DE DE HE IE DE ESE EE EK DEKE EE EK EEK EX 


SWITCHOL VBUILD TYPE=SWNET, SWITCHED NET Xx 
SUBAREA=4, SUBAREA ADDRESS = 4 x 
CONFGDS=SWTOOL, RESTART FILE x 
MAXNO=64, 4 DIALNO x 
MAXGRP=1 1 PATH GROUP | 

IBM 3790 SWITCHED DEFINITION 

HEHE ESE DE HE DE HEHE HE DE IE DE DE IEE IDE DK I HEH HE DE DE IE DE DK HEE HEE DK HE DE DEH DE HK HE DE DHE HK HE HE NK HE HEHE HEE HEH HK EE EEK HEHE 

CL3790A PU ADDR=Cl, CLUSTER ADDRESS = I CEBCDIC) X 
PUTYPE=2, X 
IDBLK=006, IDENTIFICATION BLOCK xX 
IDNUM=03791, IDENTIFICATION NUMBER X 
MAXDATA=265, MAXIMUM AMOUNT OF DATA x 
MAXOUT=7;, MAX PATH INFO UNITS BEFORE RES xX 
MAXPATH=1, DIAL-IN ONLY x 
PASSLIM=7, EQUAL TO MAXOUT x 
PACING=(1,1), X 
VPACING=(2,1), X 
ISTATUS=ACTIVE, x 
MODETAB=MODE3790, X 
IRETRY=YES 

3E 3 HE DE HE DE I HE DE DK HE DE HE HE DE HE HEE IE DE HK HE DE HE DE HE HE IE HEE HK HE EH HEE I HEE DIE DE HE IE HE HK IE HE HE DE IE DE HK IE DE IK HEE HEHEHE HE 

x | 5 

* PATH STATEMENT x 

| * 

HE DE DE HE HE HEHE HE HEHE DE I HEE IE IE DE I DE HEE IE HE HE DE I HE HEH HK DEE DE HEH HIE EDK HE HE DE HE HEE DK HE HEE HEHE HE HE DE HEE HEHE KKH 

PATHO1L PATH GID=l, x 
GRPNM=SDLCGV2, NCP SWITCHED LINE GROUP x 
PID=1, ID FOR THIS PATH X 
USE=YES, : x 


DIALNO=3464 | . 3 
HEHE HEHE HE HEE DE HEHE HE HEHEHE HE HE HE DEH HEHE DE IE HE IE IE DE HK DEE IE HE HE HE HEHE HE EH HK HE DE HE HEE HE HEHEHE HEH HE EK EHH HNN 
x x 
% LOGICAL UNIT SPECIFICATIONS as 
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SWITCHED SNA DEFINITIONS 


% * 
HEHE HEHE HE HEH HE HE HE HE HE HE DE HEE HE DE KE EE HEE EE HE EE HK EK HE HE IK EK HK HE HE EEK EER HE EE HE HE HE HE HK HE HE KE HE HK HE EK HE EEK HEHE 
INBATCH1 LU LOCADDR=1, ISTATUS=ACTIVE, BATCH=YES 
INQO2 LU LOCADDR=2,ISTATUS=ACTIVE 
INQO3 LU LOCADDR=3,ISTATUS=ACTIVE 
INQO04 LU LOCADDR=4, ISTATUS=ACTIVE 
INQO5 LU LOCADDR=5,ISTATUS=ACTIVE 
BI379011 LU LOCADDR=20,ISTATUS=ACTIVE 
BT379012 LU LOCADDR=21,ISTATUS=ACTIVE 
RJEO1 LU LOCADDR=25,I1ISTATUS=ACTIVE 
RJEO? Ly LOCADDR=26,ISTATUS=ACTIVE 
RJEOS LU LOCADDR=27,ISTATUS=ACTIVE 
RJEO4 LU LOCADDR=28,ISTATUS=ACTIVE 
RJEO5 LU LOCADDR=29,ISTATUS=ACTIVE 
CM379011 LU LOCADDR=30,ISTATUS=ACTIVE 
CM379012 LU LOCADDR=31,ISTATUS=ACTIVE 
CM379013 LU LOCADDR=32,ISTATUS=ACTIVE 
CM379014 LU LOCADDR=33,ISTATUS=ACTIVE 
BP379011 LU LOCADDR=35,ISTATUS=ACTIVE 
BP379012 LU LOCADDR=36,ISTATUS=ACTIVE 
BP379013 LU LOCADDR=37,ISTATUS=ACTIVE 
UP379011 LU LOCADDR=40,ISTATUS=ACTIVE 
UP379013 LU LOCADDR=42,ISTATUS=ACTIVE 
UP379014 LU LOCADDR=43,ISTATUS=ACTIVE 
UP379015 LU LOCADDR=44,ISTATUS=ACTIVE 
UP379016 LU LOCADDR=45,ISTATUS=ACTIVE 
UP379017 LU LOCADDR=46,ISTATUS=ACTIVE 
UP379018 LU LOCADDR=47,ISTATUS=ACTIVE 
UP379019 LU LOCADDR=48, ISTATUS=ACTIVE 
UP379021 LU LOCADDR=50,ISTATUS=ACTIVE 
UP379022 LU LOCADDR=51,ISTATUS=ACTIVE 
UP379023 LU LOCADDR=52,1ISTATUS=ACTIVE 
UP379024 LU LOCADDR=53,ISTATUS=ACTIVE 
UP379025 LU LOCADDR=54, ISTATUS=ACTIVE 
UP379026 LU LOCADDR=55,ISTATUS=ACTIVE 
UP379927 LU LOCADDR=56,ISTATUS=ACTIVE 
UP379028 LU LOCADDR=57,ISTATUS=ACTIVE 
UP379029 LU LOCADDR=58,ISTATUS=ACTIVE 


IBM 3650 SWITCHED DEFINITION 


% PU STATEMENT FOR 3650 as 

HEHEHE HH HEH HEHEHE HEHEHE HE HEHEHE HE HEHEHE HEHE HK HE EEE HK HEHE HE HK EE DE DE DE DE DEK HE DE OEE EK EE IE 

STORRS] PU ADDR=C4, CLUSTER ADDRESS = D CEBCDIC) x 
PUTYPE=2, X 
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SWITCHED SNA DEFINITIONS 


MAXOUT=7, . MAX PATH INFO UNITS BEFORE RES |. X 
MAXDATA=265, 6 BYTE TH, 3 BYTE RH, 256 BYTE RU X 
PASSLIM=5, PER INDUSTRY SPECS Xx 
PACING=(C1,1), | — X 
MAXPATH=0, NO DIAL OUT PATH 
MODETAB=ISTINCLM, LOGMODE=IBM3650 X 
IDBLK=065, IDENTIFICATION BLOCKCWRONG 7?) X 
 IDNUM=03651, IDENTIFICATION NUMBER © : X 

ISTATUS=INACTIVE, ACTIVATE VIA OPERATOR X 
VPACING=(2,1), | — 2 3 X 
IRETRY=YES 

x PATH STATEMENT | a % 

HK HE HK HK HE HE HE HK EK HK KE EE EK KE EE HE EEK EE IE HE KE KE HE HEE IK ESE KE KE EEK EE HK EE IE SE DE SK IE EK DE DE IE EE EE EEE EEE HE 

PATHO2 PATH GID=1, X 
GRPNM=SDLCGP2, NCP SWITCHED LINE GROUPCNCPRAL) X 
PID=4, ID FOR THIS PATH X 
USE=YES, 68 X 
DIALNO=3650 

x LOGICAL UNIT SPECIFICATIONS * 

HE HEH MM EK EEE EK EE EK EE EK HE EK EEE IE SESE SEE SE HE EK EE EE DE EE DEK EK EK IK DE EK EE EE EEE KEE KE EE EEX 

QESTORSI LU LOCADDR=1, REQ'D FOR 1ST LU . X 
PACING=(7,1), IMPROVES LOADING 3651 X 
VPACING=(€7,6), x 


7 ISTATUS=ACTIVE 

‘NOTE: 
The rest of the LU"s are for backup only. The system operator must 
activate each one as needed. 


QECREDST LU LOCADDR=2, X 
PACING=(0), :e xX 
VPACING=(0) | 

QE365351 LU LOCADDR=3 

QE365352 LU LOCADDR=4 

QE3653S3 LU. LOCADDR=5 

QE365354 LU LOCADDR=6 

QE365355 LU LOCADDR=7 

QE3275S1 LU LOCADDR=8 

QE3275$2 LU LOCADDR=9,PACING=(2,1) 

Q@E327553 LU LOCADDR=10,PACING=(2,1) 
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SWITCHED SNA DEFINITIONS 


IBM 3770 SWITCHED DEFINITION 


HE HEH HE HE EE HEE EE EE EE EE HK EE KE EEE EE HE EE EE EE HEE KE SE EK EE HE EE DE KE ME EK EE EE EEK EEE HK MK KK HX 


¥ x 
x PU SPECIFICATION FOR IBM 3770 % 
x x 
HEHEHE HE HE HE HEHEHE HE DE DEE HEE HE DEK EK HE HE HEE HE HE HK HEE HE HK EH HE HEE HEH HK HEHE HEE EEK HK HE HEE HE HK HER MRK HK 
CL37790 PU ADDR=C3, PU ADDRESS = C CEBCDIC) X 
PUTYPE=2, DEFINE AS TYPE 2 PU X 
MODETAB=RJEMODE, X 
IDBLK=004, IDENTIFICATION BLOCK X 
IDNUM=03770, IDENTIFICATION NUMBER X 
MAXDATA=265, MAXIMUM AMOUNT OF DATA x 
MAXPATH=2, 2 PATHS X 
MAXOUT=7, MAX PATH INFO UNITS BEFORE RES X 
PASSLIM=7, EQUAL TO MAXOUT X 
ISTATUS=INACTIVE, ACTIVATE VIA OPERATOR X 
PACING=(1,1), X 
VPACING=(2,1), x 
TRETRY=YES 
x x 
* IST PATH STATEMENT x 
x x 
HEHE HE HE HEE HE DE DE DE HE DE DE HE HEE EEE DE DE DE DE HE DE DEE 3 DE DE DE I HKD HEE HEE IEE HK HOE HK EEK EEK HK KM KH HEHE KEE 
PATHOS PATH GID=l1, X 
GRPNM=SDLCGP2, NCP SWITCHED LINE GROUPCNCPRAL) x 
PID=2, ID FOR THIS PU x 
DIALNO=84422215 
% x 
X 2nd FATH STATEMENT x 
x x 
DE PeSS Sess S ESS SPSS SSS ESE SESE SSS SSS TS SSS ESS ESS SES ESSE SS SESS ESS STS SETS SSS 
PATHO3B PATH GID=l1, x 
GRPNM=SDLCGP2, NCP SWITCHED LINE GROUPCNCPRAL ) x 
PID=3, ID FOR THIS PU x 
DIALNO=19197552215 
% x 
is IBM 3770 REQUIRES ONE LU x 
x BS 
HE HE HE DE DE DE DE HEE DE DE DE HEE DK DE DK DK DE DE SEE HE DE DE DEK DK DE HEHE DE DK DE DE HE DE OE DE DK IK HE DE DE OE DE OE DEE DE HE DE EEE DE OE OE DE DE DE EEK 
CL3770SU LU LOCADDR=1, x 
BATCH=YES BATCH DEVICE 
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SWITCHED SNA DEFINITIONS 


IBM 3767 SWITCHED DEFINITION 


HH DEH HEE EE KE HEE EEE EE HE EE EEE ESE DE EE DEE DK EE EE DEE DE DE EE EK EK NEE EE HE EK EK EE EE KE SE EE EE EK EEE 
HEHE DE IE HEHEHE HE DE DEDEDE DE HEHE IC DE HEHE DE HEE EE EE IE HEH IEEE EE DE IE HEHE DE I EE HK HEE EK DIE EEE DE IEE EK OK 
HEHE HK HK HE HK KE EK RK HK KK HR HK KH HK EK KK EK EEE KK EK KK KEKE KKK KKK KKK KK KKK 


¥ % 
% PU SPECIFICATION FOR IBM 3767 ¥ 
x . XX 


HEHEHE EK HE HE EK EK EK EK EE EE EE EE HE EE EEE EE DE EE EE EEE EK EK EE EE EEE EE KEE KK HEM KKK KNX 
tt tt ttt t.0. 0.0.0. 0.0,0,.0.0.0,. 0,0. 0.0,.0.0,0, 0.0. 0.0.0,0,.0,5,5,0.0,.0 0.0, 0 5.0. 0,0,5,0,0,.0,0,.9,9,. 0.0.5.0, 0.0,. 0.0.0.0. 0. 0.0.2.0. 0.5.5.5 
DEE HK HE HE EH KEE EK EE KE EK EEE EE EE EE EK KEE KE HE EK EK EEE EEK KE EK EEE KEKE KKK NR KN 


SD3767 PU ADDR=C2, 7 PU ADDRESS = B CEBECDIC) X 
PUTYPE=1, TERMINAL NODEX x 
MAXDATA=261, MAXIMUM AMOUNT OF DATA ¥ 
IDBLK=007, IDENTIFICATION BLOCK X 
IDNUM=00000, IDENTIFICATION NUMBER X 
MAXOUT=1, MAX PATH INFO UNITS BEFORE RES ¥ 
MAXPATH=0, DIAL-IN ONLY x 
PASSLIM=1, EQUAL TO MAXOUT x 
ISTATUS=INACTIVE, ACTIVATE VIA OPERATOR X 
PACING=(1,1), “ 
VPACING=(2,1), _ x 


TRETRY=YES 
HIE HEHE SE DEH HE DE DE DK DK DE DE DE DK HC DE EE HEE HE EEE KK SE HEH EE IE HE HK HE HE EE KEK K KKK KKK HHH HHH HHH 


* % 
X NO PATH STATEMENT IBM3767 DIAL-IN ONLY x 
X x 


HHH HE HE HK HE HK EE HEE EE HK KEE EE HE HE EK EK EK EEE EE KE DE EE KE EK EK EE EE EK KE KE EK EKER HK KKK 
HE HK KEK HK EK EK KK KE KE KEK EK KE EK KH HK EE HK KKK HK HK KEK KK KK HRI KKK KKK KK KKK KKK KKK 


x x 
x IBM 3767 REQUIRES ONE LU x 
ra % 


HE DEE DEDEDE HE DEE 3 DE DE DK DDE DE DE DE DK EE DEE KEE EE DED DE HE HE HE DEE DE DEK EEE EK DK HE EE DE DEE KK EEE KK 

TR37675SD LU LOCADDR=0, x 
ISTATUS=ACTIVE, x 
SSCPFM=USSSCS, Xx 
MODETAB=ALL3767 

DELS EPS SSS SSRE SS SSS SP SSS SESS SS SESS ESS ES SS SSeS EST T ES SSS SESE LESS ES SSE ES SS 


Notes~ The VTAM System Programmer's Guide describes the definition of 
Switched SNA major nodes. | 
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CHAPTER 9 


REFERENCES 
DOS/VS VTAM System Programmers Guide 
DOS/VS VTAM Reference Summary 
ACF/VTAM System Programmers Guide (DOS) 
ACF/VTAM Installation Guide (DOS) 
ACF/VTAM Reference Summary (CDOS) 
OS/VS1 VTAM System Programmer's Guide 
OS/VS VTAM Reference Summary 
OS/VS2 SVS VTAM System Programmer's Guide 
OS/VS2 VTAM System Programming Library: VTAM 
ACF/VTAM System Programmers Guide 
ACF/VTAM Installation Guide 


ACF/VTAM Reference Summary 
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LOCAL DEVICE DEFINITIONS 


> LOCAL DEVICE DEFINITIONS 


GC27-6957 


GX27-0033 


$C38-0268 


$C338-0270 


SX27-3022 


GC27-6996 


GX27-0034% 


GC27-0049 


GC28-0688 


SC38-0258 


$C38-0269 


$X27-3021 
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LOCAL DEVICE DEFINITIONS 


VBUILD MACRO SPECIFICATIONS - LOCAL 3274-1A 


LHA3274A VBUILD SUBAREA=7,TYPE=LOCAL 


IBM 3274-1A PU DEFINITION 


LHA3274 PU BUFLIM=10, | X 
CUADDR=4F0, xX NOTE: Defined to OS as local 3791 *X*X X 
DISCNT=NO, X 
ISTATUS=INACTIVE, X 
USSTAB=USST3270, x 
MAXBFRU=15, X 
MODETAB=MT3274A4, X 
PUTYPE=2, X 
SSCPFM=USSSC5S, ¥*¥* NOTE: USSSCS Xxx X 
VPACING=0 
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LOCAL DEVICE DEFINITIONS 


IBM 3274-1A LU DEFINITION 


LRAPAOL LU LOCADDR=2, ISTATUS=ACTIVE X¥¥*% NOTE: LOCADDR=2 *xX | 
LHAPAO02 LU LOCADDR=3,ISTATUS=ACTIVE 
LHAPAO0S LU LOCADDR=4,ISTATUS=ACTIVE 
LHAPAOG LU LOCADDR=5,ISTATUS=ACTIVE 
LHAPAO5 LU LOCADDR=6,ISTATUS=ACTIVE 
LHAPA06~ LU LOCADDR=7,ISTATUS=ACTIVE 
LHAPAO7 LU LOCADDR=8,ISTATUS=ACTIVE 
LHAPA08 LU LOCADDR=9,ISTATUS=ACTIVE 
LHAPBOIL LU LOCADDR=10,ISTATUS=ACTIVE 
LHAPBO2 LU LOCADDR=11,ISTATUS=ACTIVE 
LHAPBO3 LU LOCADDR=12,ISTATUS=ACTIVE 
LHAPBOG LU LOCADDR=13,ISTATUS=ACTIVE 


Notes~ The VTAM System Programmer's Guide describes the definition of 
Local SNA major nodes. 
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LOCAL DEVICE DEFINITIONS 
LOCAL(3270) TERMINAL DEFINITION CVTAM) 


HE HE HEE HE HE DE HE HEE EEE HE EE HE HEE HE HEE HK EK DE EE EE EE EE HE KE HE DEE EE EE EE EE EE EE KK EE EE HE HK EK EE EE KKK 


% % 
* LOCAL 3270 TERMINAL DEFINITION 3 — eo’ BS 
rad | | % 


DE HE HEE HE HEE DE HE HE DEN HEE DE HE HE KE HE HE HE KE EK DE IEE KE HK EK HE HE EE HE HK EE EE EE EE HE EE EEK EK KK HEH KH HK KKK KKK 


LOC11 LBUILD SUBAREA=5 SHOULD BE BETWEEN 2 AND VALUE OF MAXSUBA 
PEPE SESS SE PES EPSPS SP SSPE SEP SSE SS SESE SS SESS S SLES SSE S ESE ES SESS TESTS SSE ES SF 


* : % 
* LOCAL OPERAND OPTIONS ARE AS FOLLOWS: 
x CUADDR=ADDRESS, — CHANNEL ADDRESS x 
% TERM=3277 1328413286, TERMINAL TYPE x 
x BUFLIM=N[2, READ AHEAD BUFFERS 
x FEATURE2=(MODEL1[MODEL2, MODEL NUMBER x 
x ANKEY | NOANKEY, ALPHANUMERIC KEYBOARD X 
x DEKEY|NODEKEY, — DATA-ENTRY KEYBOARD x 
% PFK{NOPFK, | PROGRAM FUNCTION KEYS x 
SELPEN|NOSELPEN), SELECTOR PEN x 
¥ ISTATUS=ACTIVE|INACTIVE, INITIAL VTAM STATUS x 
% LOGAPPL=NAME, NAME OF APPLICATION PROGRAM IF x 
* AUTO LOG ON WHEN TERMINAL SS 
% IS MADE ACTIVE BY VTAM. * 
x LOGTAB=NAME NAME OF LOGON TABLE x 
¥ | | | % 
HEHEHE IE EE HEE HE DE EE HE EE DE EEE EE EE EE EK EE EK DEK SE DE IE DE DE DK HE DE DE IE OE EE EE EEE HE EK EK KEK KK KKK 
LOc20 LOCAL CUADDR=020, TERM=3277, FEATUR2=(MODEL2, ANKEY,PFK), X 
LOGTAB=TABLE01,LOGAPPL=NETSOL 
Local LOCAL CUADDR=021, TERM=3277,FEATUR2=(MODEL2,ANKEY), X 


| ISTATUS=INACTIVE 
LOC23 LOCAL CUADDR=023, TERM=3277,FEATUR2=(MODEL2, ANKEY) 
LOC24 LOCAL CUADDR=024, TERM=3286 


NOTES- Chapter 3 of the VTAM System Programmer's Guide describes the 
definition and filing of local terminals. This example will sllow cause 
VTAM to 'LOG" LOCZ0 on to the "NETSOL'" when 'NETSOL' is started. 
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LOCAL DEVICE DEFINITIONS 


LOCAL SNAC3790) DEFINITIONCVTAM) 


DE HE HEH HEHEHE IE HE EK HEE KE DE IE NE IEE HEE HEE SE DEE HE IE HE DE EE EK HEE KE HE EE EE DE DE DK DE DE EE EE EEK EK EE EEE EEK EK KX 


% ¥* 
* LOCAL 3790 TERMINAL DEFINITION x 
% rad 
HE HE HE HE HK HEHE HE HE DE HE EK EK IE OE SE EK EE IE KK EE KE HK HEE EK EK KE DE EE EE DEE EK DE EK SE SE HEE HE HE EE EK HE EE EEE EEE EMH 
LOCAL VBUILD TYPE=LOCAL, LOCAL MAJOR NODE = X 
SUBAREA=7 SUBAREA ADDRESS ++ 
LC3790 PU ISTATUS=INACTIVE, ACTIVATE VIA OPERATOR $$ ++ X 
MAXBFRU=14, NO. OF BUFFERS NEEDED FOR READ ++ X 
CUADDR=010, 3790 ADDRESS X 
DISCNT=NO HOLD CONN AFTER END OF LU SESS +t 
INCL3790 LU LOCADDR=1, IN REQ@'D FOR IST LU FOR SSS $$ = X 
ISTATUS=ACTIVE; ACTIVATE WITH PU ++ X 
VPACING=(1,1) AVOID BUFFER FLOODING 3790 
PGM3 LU LOCADDR=2, INTERACT LU USED FOR APPL $$ = X 
ISTATUS=ACTIVE, ACTIVATE WITH PU ++ X 
BUFLIM=4, X 
VPACING=(1,1) AVOID BUFFER FLOODING 3790 + 


NOTES~- Chapter 3 of the DOS/VS VTAM System Programmer's Guide describes 
the definition and filing of local SNA terminals. Local terminals do 
not have to be on the same control unit to be defined ina local major 
node. If the local terminals do not exist, it is better not to put them 
in the VTAM definition as VTAM tables are created for each defined 
terminal. 
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LOCAL DEVICE DEFINITIONS 
ACF/VTAM LOCAL 3277 TERMINAL DEFINITION 


BE HE DEH HE IEE HE EE HE HE HK HE HE EE SE EEK EK SE EE HE HK EK KE DEE HE EE HE EK HEE KE EE KE HE EK KE SE EK IE EK EE EK KE EEE EEK 


% . % 
* LOCAL 3270 TERMINAL DEFINITION x 
% * 


HE HE DE HE DE HE HE DEE DE DE DE DE DEK DE DE HK EE EE IE DE DEE HE DEE DE IKE DE DEE DE DE DK DE DE DE DE DE DE DE HE DE DE DE DE DE DE DE DE DE DE DE DE DE DK DEE DE DE EK EEE 


LBUILD SUBAREA=8 
HIE HEHEHE HE HE BE DE DEK DE DE DEE DEC EK DE DE DE DE DE DE DE DE DE HEE HE DE DE DE DE DK DE DE DK OE DE DE OK DE OK I EK IE DE IE DE EEE EEK KKK KH 


LOCAL OPERAND OPTIONS ARE AS FOLLOWS: 
CUADDR=ADDRESS, CHANNEL ADDRESS 
TERM=327713284[3286, TERMINAL TYPE 
BUFLIM=N]2, READ AHEAD BUFFERS, ~— 
FEATURE2=(MODEL1IMODEL2, MODEL NUMBER 
ANKEY|NOANKEY, ALPHANIMERIC KEYBOARD 
DEKEY | NODEKEY, DATA-ENTRY KEYBOARD 
PFK|NOPFK, PROGRAM FUNCTION KEYS 
SELPEN|NOSELPEN), SELECTOR PEN 
ISTATUS=ACTIVE]INACTIVE, INITIAL VTAM STATUS 
LOGAPPL=NAME, NAME OF APPLICATION PROGRAM IF 
AUTO LOG ON WHEN TERMINAL 
IS MADE ACTIVE BY VTAM. 
DLOGMODE=S3270, DEFAULT MODETAB ENTRY 
LOGTAB=NAME NAME OF LOGON TABLE 


K KK KK K KK KK KK KR K K K KK 
x KK KK KK K K K KK K K K K MR 


SS 22 0.0.2.¢.0. 2.0.0.0, 0.0,0,. 0.0.0.0, 0.0.0,.0.0.0.0,.0. 0.0.0. 0,.0,0,.0,. 0.0.0.0. 0.0.0. 0.0.0 2.0.0.0. 0.0. 0.0.0,. 0.0.0 0.0.0. 0.0.0. 0.0.0. 0.0.8, 5); 

LU4CO LOCAL CUADDR=4C0,TERM=3277,DLOGMOD=S3270, Xx 

FEATUR2=C(MODEL2,ANKEY,PFK),ISTATUS=ACTIVE, X 
LOGAPPL=NETSOL,LOGTAB=TABLEOL 

LU6C1 LOCAL CUADDR=4C1,TERM=3277,DLOGMOD=S3270, X 

FEATUR2=CMODEL2,ANKEY,PFK),ISTATUS=ACTIVE, X 
LOGAPPL=NETSOL,LOGTAB=TABLEOL 

LU4C2 LOCAL CUADDR=4C2, TERM=3277, DLOGMOD=S3270, xX 

FEATUR2=C(MODEL2,ANKEY,PFK),ISTATUS=ACTIVE, X 
LOGAPPL=NETSOL,LOGTAB=TABLEDOL 

LU4C3 LOCAL CUADDR=4C3, TERM=3277,DLOGMOD=S3270, 7 x 

| FEATUR2=CMODEL2,ANKEY,PFK),ISTATUS=ACTIVE, X 
| LOGAPPL=NETSOL,LOGTAB~TABLEOL 

LUS6C4 LOCAL CUADDR=4C4, TERM=3277,DLOGMOD=S3270, X 

FEATUR2Z=(MODEL2, ANKEY,PFK),ISTATUS=ACTIVE, X 
LOGAPPL=NETSOL,LOGTAB=TABLEOL 

LU4C5 LOCAL CUADDR=4C5, TERM=3277,DLOGMOD=S$3270, X 

FEATUR2=CMODEL2,ANKEY,PFK),ISTATUS=ACTIVE, x 
LOGAPPL=NETSOL,LOGTAB=TABLEOL 
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MSNF NETWORK DEFINITIONS 


CHAPTER 10 =: MSNF NETWORK DEFINITIONS 


The following definitions are samples used to define a Multidomain 
eperstion that allows communication between ACF/VTAM on an MVS system 
with either ACF/TCAM on a MVS system or ACF/VTAM on a DOS system. The 
cross domain path between the domains is via a multi-tailed 3705. The 
sample ACF/TCAM MCP in Chapter 6 contains the MSNF definitions for 
ACF/VTAM from the ACF/TCAM end. 


Esch VTAM node in the network which wants to become an owner of 2 
certain NCP must provide that VTAM node with access to the NCP 
generation Stage I input source. (CAccess method sends an Activate 
Physical to NCP to become sn owner) The Resource Resolution Table CRRT) 
produced by Stage II of the NCP generation must also be provides to the 
host access method node (CVTAM and TCAM). The NCP load modules must be 
provided to any host access method which will load the 3705. 
Installation planning should consider how these files will be provided 
to the necesssry locations. This 1s especially important when host 
CPU's are in multiple geographic locations. 


REFERENCES 
ACF/VTAM System Programmers Guide (DOS) §C38-0268 
ACF/VTAM Installation Guide (DOS) $€38-0270 
ACF/VTAM Reference Summary (DOS) $X27-3022 
ACF/VTAM System Programmers Guide $€038-0258 
ACF/VTAM Network Operating Procedures $C38-0259 
ACF/VTAM Installation Guide $C38-0269 
ACF/VTAM Reference Summary $X27-3021 
ACF/1CAM General Information GC30-2050 
ACF/TCAM Concepts and Planning GC30-3049 
ACF/TCAM System Programmer's Guide $C30-3117 
ACF/TCAM Macro Reference Guide $C030-3118 
ACF/TCAM Application Programmer's Guide $C30-3119 
ACF/TCAM Installation and Migration Guide $€30-3121 
ACF/TCAM Operator's Guide $€30-3123 
ACF/TCAM MSNF Program Reference Summary Supplement LD21-0003 
ACF/TCAM Program Reference Summary LY30-3037 
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MSNF NETWORK DEFINITIONS 


0.1 : NETWORK DEFINITIONS CAUTO-STARTED) 


VTAM STARTUP CONFIGURATION DEFINITION 


IMSAPAC, TSOAPAC, CICSAPAC, JESAPAC,NOSP,DSXAPPL, X 
SWITCHAC, LOC3272,NCPACFI,LHA3S274A, X 
CDRPATH, CDRMLIST,CAPLSDOS,CAPLSTCM 


The following ACF/VTAM defintions are started at start-up time. 


VBUILD MACRO SPECIFICATIONS - CDRM: CDRMLIST CMVS SYSTEM) 


CDRMLIST VBUILD TYPE=CDRM 

MVSVTAM CDRM SUBAREA=18,ELEMENT=1,ISTATUS=INACTIVE 

MVSVMVT CDRM SUBAREA=13,ELEMENT=1,ISTATUS=ACTIVE, VPACING=2 
MVSVMTC CDRM SUBAREA=14,ELEMENT=0,ISTATUS=ACTIVE, VPACING=2 
VSIVTAM CDRM SUBAREA=11,ELEMENT=1,ISTATUS=INACTIVE 

DOSVTAM CDRM SUBAREA=12,ELEMENT=1,I1STATUS=ACTIVE, VPACING=2 


VBUILD MACRO SPECIFICATIONS - CDR PATHS: CDRPATH CMVS SYSTEM) 


MVSVMTC PATH ADJSUB=21,DESTSUB=(14) 
MVSVTAM PATH ADJSUB=22,DESTSUB=(18) 
VSIVTAM PATH ADJSUB=22,DESTSUB=(11) 
DOSVTAM PATH ADJSUB=21,DESTSUB=(12) 


VBUILD MACRO SPECIFICATIONS - CDRSC: CAPLSDOS (DOS APPLICATION) 


CAPLSDOS VBUILD TYPE=CDRSC 

POWER CDRSC CDRM=DOSVTAM, ISTATUS=ACTIVE 
CICSA CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 
CICSB CDRSC CDRM=DOSVTAM, ISTATUS=ACTIVE 
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NOSPD 

NOSPDOOO 
NOSPDOOL 
NOSPDO02 
NOSPDO003 
NOSPDO04 
NOSPDOO5 


CDRSC 
CDRSC 
CDRSC 
CDRSC 
CDRSC 
CDRSC 
CDRSC 


CDRM=DOSVTAM, ISTATUS=ACTIVE 
CDRM=DOSVTAM, ISTATUS=ACTIVE 
CDRM=DOSVTAM, ISTATUS=ACTIVE 
CDRM=DOSVTAM, ISTATUS=ACTIVE 
CDRM=DOSVTAM, ISTATUS=ACTIVE 
CDRM=DOSVTAM, ISTATUS=ACTIVE 
CDRM=DOSVTAM, ISTATUS=ACTIVE 


MSNF NETWORK DEFINITIONS 


VBUILD MACRO SPECIFICATIONS - CDRSC: CAPLSTCM CTCAM APPLICATIONS) 


CAPLSTCM VBUILD TYPE=CDRSC 


NDSMH 
MHS3270 
TSOMH 


10.2 


CDRSC 
CDRSC 
CDRSC 


CDRM=MVSVMTC,ISTATUS=ACTIVE 
CDRM=MVSVMTC,ISTATUS=ACTIVE 
CDORM=MVSVMTC,ISTATUS=ACTIVE 


> NETWORK DEFINITIONS CACTIVATED AS REQUIRED) 


The following definitions are activated as required. 


VBUILD MACRO SPECIFICATIONS - CDRSC: C3270D0S (DOS OWNED 3270) 


C3270D05 
LUS270V0 
LU3270V1 
LU3270V2 
LU3270V3 
LU3270V4% 
LU3270V5 
LU3270V6 
LU3270V7 


VBUILD TYPE=CDRSC 


CDRSC 
CDRSC 
CDRSC 
CDRSC 
CDRSC 
CDRSC 
CDRSC 
CDRSC 


CDRM=DOSVTAM, ISTATUS=ACTIVE 
CDRM=DOSVTAM, ISTATUS=ACTIVE 
CDORM=DOSVTAM, ISTATUS=ACTIVE 
CDRM=DOSVTAM,ISTATUS=ACTIVE 
CORM=DOSVTAM, ISTATUS=ACTIVE 
CDRM=DOSVTAM, ISTATUS=ACTIVE 
CDRM=DOSVTAM,ISTATUS=ACTIVE 
CDRM=DOSVTAM, ISTATUS=ACTIVE 


VBUILD MACRO SPECIFICATIONS - CDRSC: C3270TCM CTCAM OWNED 3270) 


C3270TCM VBUILD TYPE=CDRSC 
LU3270V0 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
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LU3270V1 CDRSC CDRM=MVSVMTC, ISTATUS=ACTIVE 
LU3270V2 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
LU3270V3 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
LU3270V¥4 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
LU3270V5 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
LU3S270V6 CDRSC CDRM=MVSVMTC, ISTATUS=ACTIVE 
LU3270V7 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 


VBUILD MACRO SPECIFICATIONS - CDRSC: €3274D0S (DOS OWNED 3274) 


C3274D0S VBUILD TYPE=CDRSC | 

SDLCPAO] CDRSC CDRM=DOSVTAM, ISTATUS=ACTIVE 
SDLCPA02 CDRSC CDRM=DOSVTAM, ISTATUS=ACTIVE 
SDLCPA03S CDRSC CDRM=DOSVTAM, ISTATUS=ACTIVE 
SDLCPA04 CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 
SDLCPAQ5 CDRSC CDRM=DOSVTAM, ISTATUS=ACTIVE 
SDLCPA06 CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 
SDLCPA07 CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 
SDLCPA08 CDRSC CDRM=DOSVTAM, ISTATUS=ACTIVE 


VBUILD MACRO SPECIFICATIONS ~- CDRSC: C3274TCM CTCAM OWNED 3274) 


C3274TCM VBUILD TYPE=CDRSC 

SDLCPA01 CDRSC CDRM=MVSVMTC, ISTATUS=ACTIVE 
SDLCPA02 CDRSC CDRM=MVSVMTC, ISTATUS=ACTIVE 
SDLCPA03 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
SDLCPA04 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
SDLCPA05 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
SDLCPA06 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
SDLCPA07 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
SDLCPAQS CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
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CHAPTER 11 : NOSP INSTALLATION 


NOSP INSTALLATION PRE-PLANNING 


The following procedures should be done prior to the actual coding of 
the Network Operation Support Program CNOSP) definition statements. 


1. Pictorially define the entire network as defined by the ACF/VTAM 
and ACF/NCP programs. This definition should initially be done 
assuming that there will be only one NOSP operator who will have 
sll and complete authorization for the control of the network. 
However, since in most uses of NOSP there will be multiple NOSP 
operators each of whom will control different and sometimes 
overlapping parts of the network, the initial definition should be 
designed for the future and actual operation. In other words, plan 
for at least one operator that can control the entire network, and 
additional operators that have limited spans of control. 


Terminals thst may be NOSP operator stations must be defined ahead 
of time. Likewise, NOSP hardcopy terminals must be predefined. 
Part of the network definition must be to determine which LU's will 
be used as operator stations and hardcopy printers and what their 
various spans of control will be. | 


The people involved in the definition of the control of the network 
should include ACF/VTAM systems programmers as well as Operations 
personnel. This will insure that the operstional aspects are 
thorough as well as _ practical. After all, it will be the 
Operations staff who will be using the product. 


2. After the pictorial definition is complete, coding of the initial 
and single NOSP operator concept should take into consideration the 
future spans which will be assigned to other NOSP operators. By 
using this coding approach you will avoid having to recode the NOSP 
definition for the final configuration. 


3. NOSP only requires the "SPAN" parameter if specific profiles are 
used. If you intend to have all global operators then omit the 
"SPAN" parameter. CAUTION: If you intend to run NOSP in <a 
multidomain environment then omit the "SPAN" parameter. (See the 
example for coding RRD statements.) 
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If specific profiles are used then NOSP requires that the "SPAN' 
parameter be coded in the ACF/VTAM definition program, it would be 
judicious to plan. for the inclusion of NOSP as early as possible. 
ACF/NCP and NCP/VS (5.0) will both ignore this parameter, thus it 
can be coded even before NOSP is installed. The only thing that 
might cause a recoding of the "spanneme’ is that the network 
sontrol definition is not complete at the time of the network 
definition. But since this is a VTAM parameter, it takes effect at 
VTAM initialization and can be easily changed. CAUTION: Always 
place spanname in parenthesis. eg SPAN=Cspanname). 


4. The various NOSP definitions are stored as several individual 
members in the NOSP data sets as opposed to, say, VTAM which has a 
single member for the definition of the network which is running at 
the time. Thus in order to ease your definition of the NOSP 
members, define one span of control at a time Cas shown by your 
pictorial configuration). 


5. To ease and confine the extent of the NOSP testing, bring up a 
single NOSP definition which controls the entire network. This 
test will check that the NOSP program and commands are working. As 
mentioned previously you will probably want to keep at least one 
operator in your final defintior that hss this global suthority. — 


6. The next level of testing should be to define another NOSP operator 
in this) single NOSP environment. This is done by adding another 
set of OPERATOR and PROFILE definitions to the NOSP definition. 
Keep the original Cand completely suthorized) operator definition 
intact. You will always want to have one operator who has the 
authority to control all of the network. After this definition is 
complete, then bring up and test all of the commands and extents of 
this operator's control in the network. 


Continue doing this step as many times as there sare NOSP operators 
to be defined in this NOSP definition. However, be sure to do this 
for only one operator ast sa time to assure that the testing is 
complete and controllable. 


7. After the complete single NOSP definition is completely tested and 
is operstional the way desired, and if there is to be more than one 
domain in the network, then start the NOSP definition for the next 
domain. Again, you want to step through the NOSP definition and 
testing one step at a time. 


8. When two Cor more) NOSP domain definitions sre complete and working 


individually as desired, then test them together. Again, if there 
gre other domains to be included, bring them on one at a time. 
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NOSP INSTALLATION STEPS 


NOSP INSTALLATION 


DOCUMENTATION 

Genersl Informstion GC38-0251 
Program Product Specifications GC33-0277 
Program Information and Maintenance Manual $€038-0278 
Operator's Manual $€38-0281 
Logic LY27-8026 


1. Inscall NOSP distribution tape and apply necessary PTF's. 


2. Code 
filed 


and file NOSP definition statements. These statements may be 


as members 


in the ACF/VTAM definition library CSYSL.VTAMLST), 


or may be put into any partitioned data set.The following members are 
defined and filed: 


d. 
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MEMBER 


DSIOPF 


User defined 
proflie name 


DSISPN 


DSIDMN 


CONTENTS 


OPERATOR and PROFILEN statements to define all 
operators, their passwords, and point to their 
profiles.(See example 1). 


PROFILE, ISPAN, SPAN, DOMAINS, and AUTH ststements 
to define the operator's span of control. 
(See example 2). 


SPANLIST which associates spans and major nodes. 
Defer this member until you need operstors with 
specific profiles. Be sure to specify all defined 
profile names as valid for the master terminal 
operator or Systems Programmer. NOSP may be 
checked out with one operator by logging on with 
different profiles. 

OPERATOR 

PROFILEN profl,prof2,....Cprofl is the default) 


NOSPID, POS, HARDCOPY, RRD, CDMNSESS, MAXSPAN, 
MAXABEND, and MAXLOGON which specify system 
information for NOSP as a whole, rather than a 
particular operator. (See example 3). 

MAXABEND should be a low number 2 or 3. This 
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number determines when NOSP will place a 

device in ERROR status. If a device 

is NOT in error status, Cie. MAXABEND has 

not been reached) then the MOVE command will 

not work. MAXLOGON should be about 2 or 3.. 

When this number is reached because of incorrect 
informstion on the logon screen, NOSP issues 
CLSDST RELEASE. 


e. DSICMD CMDMDL and PARMSYN which define all valid 
| commands, including standard VTAM commands, that 
may be entered from a NOSP terminal. These 
statements may point to command lists or command 
processors. (See example 4%). 


f. User command Command list(€s). (See example 5). 
list name(s) 


3. Create NOSP start procedure using a dataset for disk logging of all 
messages if desired. (See example 6). 


4. Code, assemble, and linkedit any desired command processors and/or 
user exits. Defer this step until you are sure you need them. Once 
an exit is there it cannot be disabled. 


5. Add NOSP APPL statements to current APPL major node or create a new 
major node and include it in the configuration list CATCCONxx). (See 
example 7). 


6. Modify logon mode tables. NOSP requires a mode table ENTRY of 
DSILGMOD for its bind. Therefore, each terminal type that uses NOSP 
must have @ sepsrate logon mode table with a DSILGMOD entry in it. 
(See example 8). 


7. Update USS tables and logon intrepet tsbles ss necessary for NOSP 
Iogon. (See examples 9 and 10). 


8. Create procedure for printing a hard copy of NOSP's disk log. (See 
example 11). 
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NOSP GPERATIONAL CONSIDERATIONS 


1. VTAM messages will no longer go to the system console, they will go 
to the NOSP operator and the hard copy log. System operators will no 
longer be aware of many network problems, for example, line and modem 
problems. This, of course, is the intention of NOSP but it will 
“require some operational changes that must be planned for. In 
addition it will require good communication between the system 
operators and the NOSP operators. 


2. PFK*s can be used for standard commands but cannot be used to point 
to a CLIST since a member name beginning with s numeric is not 
allowed by the Operating System. This may be handled by an exit 
routine (DSIEX01) which converts PFK input to something that begins 
With an alpha character, eg. convert 1 to Pl, 2 to P2, etc. Then the 
member that DSICCP reads and executes will be Pl, P2, etc. 


3. Since NOSP operator terminals and hardcopy log must be predefined to 
NOSP by their LU name, some consideration should be given to a backup 
plen. If a NOSP terminal is unavailable for some reason (terminal 
problem, line problem, etc.) it would be ideal to have a backup 
terminal already defined. In this case the operator could move to 
the backup terminal, sign on and resume operation. In the case of a 
hardcopy log, the START and STOP commands may be used to change to 4 
backup printer. 


4. It is probably advisable to have at least one local NOSP operator 
station. In the case that the NCP becomes unavailable, it will be 
valuable to have a local operator who will be notified and take any 
recovery action necessary. 


5. To terminate NOSP, sny NOSP operator or the system operator’ can 
request a CLOSE. If a CLOSE IMMED is requested, NOSP abends and is 
terminated immediately. If entered without IMMED Cthe usual method 
of terminstion), each terminal will be sent 3 message that 
terminstion has been requested. Before termination occurs, all 
operators must logoff. The hardcopy terminal will be automatically 
logged off when the last operator using it logs off. 


6. You MUST code FEATUR2Z=(MODEL2) on ALL 3270 definitions. Default is 
model 1 and NOSP does not support this terminal type. (The ACF/VTAM 


Systems Programmer's Guide left out the defaults.) 


7. For NOSP in multiple domains you must have a BIND image and CDRSC 
definitions. 


a. Here is the logmode entry for NOSP-to-NOSP sessions. Either same 
domain or X-domain. 
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NOSPXDOM MODETAB 


DSILGMOD MODEENT LOGMODE=DSILGMOD, FMPROF=X'03',TSPROF=X'03', | x 
PRIPROT=X'20",SECPROT=X'20',COMPROT=X'4000', as 
PSERVIC=X*000000000000000000000000" ,RUSIZES=X"86A3' 

MODEEND | 7 | | 
END 


at 


b. Here is the CDRSC definition if NOSPD were cross~-domain to NOSP1 


-¢7 ADD NAME=NOSP2MJX 

CDNOSP2 VBUILD TYPE=CDRSC 

NOSPD CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 
NOSPDO00 CDRSC CDRM=DOSVTAM, ISTATUS=ACTIVE 
NOSPDOOL CDRSC CDRM=DOSVTAM, ISTATUS=ACTIVE 
NOSPDOO2 CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 
NOSPDO03 CDRSC CDRM=DOSVTAM, ISTATUS=ACTIVE 
NOSPDO04% CDRSC CDRM=DOSVTAM, ISTATUS=ACTIVE 


8. For an operator with a specific profile to go cross domain you MUST 
code DOMAINS statement(s) in the PROFILE. 


9. Do not use spsn of control initially. BE VERY CAREFUL) about 
attempting to use span of control along with RRD ststements ina 
multidomain environment. If you are planning to install NOSP ina 
single domain first then go to multiple domains DO NOT USE SPECIFIC 
profiles and RRD statements at all. You must CLEARLY understand the 
NOSP tables before undertsking such an environment. 
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SPECIAL NOSP INSTALLATION CONSIDERATIONS 


Five things must be done in order to implement SPECIFIC profiles and 
span of control. 


1. You must code MAXSPAN in the DSIDMN member otherwise NOSP will not 
read the DSISPN member. This number should be a multiple of 8 and 
MUST be greater than or equal to the number of unique span names. If 
you don't do this NOSP will not initialize. 


2. You must code ISPAN and/or SPAN statements in the PROFILE. 
3. You must code AUTH CTL=SPECIFIC or let it default. 


4. You must place SPANLIST statements in member DSISPN which point to 
the VTAM major node name. Failure to find a major node in VTAMLST 
will terminate NOSP initialization. 


5. You must code SPAN= on EVERY resource in EVERY node which you want to 
be placed under control of an operator using a specific profile. 
NOTE: These five steps will cause the ART to be built in memory. It 
is sorted alphabetically after the names are read from VTAMLST. 
Duplicate names are merged into a single entry. If you leave off 
SPAN= from any node name (LINE, PU, or LUD then NOSP will not place 
the name in the ART. If a3 name is not in the ART then”9= an operator 
using a specific profile can NEVER reference the resource. 
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NOSP INSTALLATION EXAMPLES 


METitiTititiiiitititiTitiitiiiiiitititiiititiTttititiittititiitttTes ttt! 
** These examples define s single domain environment with two NOSP 

** operators, both with global authority, and a hardcopy log. 

HE HE HEHE DEE DEE DE HEE DEE DE HE EE HE HE HEHE HE DEE EDK EDF 3 DK DE DE IE DK DE DK DE DE IE DK HE DE I DE HE DEO EK OE DK DE OK IE DEE EE 


HH HEHE HEHEHE HE HEHE HEHEHE KK HEHEHE HEH I DED DK IK HE IE HEHEHE HII DE DK IK WE WE HE HE HEHE DDK DD OK DK HC HC HCH OK OD OK DE HC WE EC HE CI 
1. DSIOPF Example | | | 
reteset etetietittetitititetittititititttrettittttitititetetititerstrtttr ist: 
«7 ADD NAME=DSIOPF 
CPER] OPERATOR PASSWORD=AAA 
PROFILEN PROFIL 
OPER2 OPERATOR PASSWORD=BBB 
PROFILEN PROFL 
END 


HEH HEHEHE IEE HE IEEE HE DE HEHE EEE HE IEE HE EE EI IEE HE HEE EE EEE NE IE EE EE EEK DE EEE IE EE EEE EE HK KKH 
2. PROF1- Example of profile pointed to by PROFILEN of DSIOPF 
DE HE HK DE IE IE HK HEE HK HEE EK EEE HE EK EE HE EE IK EEE EE KE EE EE EK EE EE HE EK EE KE EK EEK KE HK HHH HEH K KKK 
-f ADD NAME=PROF1 
PROFI PROFILE HCL=LU3270V0 
AUTH CTL=GLOBAL,MSGRECVR=YES 
END 


HE HK HE HE HK IEEE EK EH HE HK KE HE HK EE EE EE EEK EK EE EEK EK EE HE HE HE EK EE EE EE EE HE EK DE KE EEE KE EEE HK HR KK 

3. DSIDMN Example 

HE HEHE HE HE DE HEHEHE DE DE HEE HK ED DE DE EK DE DE EE DK DEE HE DE DK DE DE EEE DK DE DE DE DK DE DE DEE DE DE DE DE DE DE DE DE HK DK DE DE DE DE DK DE DE EK DK DE DEE KK 

-7 ADD NAME=DSIDMN 

D1 NOSPID DOMAINID=NOSP1 
POS LU4C3,SDLCPA01,LU3270V3,LHAPA03,LU4D7 
HARDCOPY LU3270V0 

NOSPD RRD DUMMY (Defines NOSPD to NOSP1 for global Operators) 
MAXABEND 3 
MAXLOGON 3 
END 


&. DSICMD Example: 
This member includes all standard NOSP sand VTAM commands. 
It also has four user defined command lists. A clist definition 
must have MOD=DSICCP coded. Whenever s clist name is found the 
module DSICCP is invoked. This module processes all clists. 


NOTE: Be sure to code ALL immediste commands as shown. 
-7 ADD NAME=DSICMD 


HE 3 HEE HEE DEE DEE BE DE DEE DE DE DEE DE DK DE 3 DE DE DDE DE DK ED DK DK DED DE ED DE ED DK DE 3 DK EE DK ED DE OK EDK DK DEK EE KOE 
x IMMEDIATE COMMANDS x 
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SS So. 2 222 6.2.0.5. 0.0.0, 5.0, 2.0. 0. 0.0.0.5. 0. 0.0.0,.0.5.0,.0, 5.0.2.5. 0.0 0.0.0.0. 2.9 2.0 5.0.0 20.0.0. 5.0.2.0. 5.0.0, 0.0.0.5. 5. 0.0.5.5,) 


AUTO CMDMDL MOD=DSIAWP, TYPE=I 

AUTOWRAP CMDMDL MOD=DSIAWP,TYPE=I 

CANCEL CMDMDL MOD=DSICAP, TYPE=I 

CLOSE CMDMDL MOD=DSICLP,TYPE=I 

GO CMDMDL MOD=DSIGOP, TYPE=I 

RESET CMDMDL MOD=DSIRSP,TYPE=I 

CLEAR $CMDMDL MOD=DSICKP,TYPE=B 

5S The sbove command name allows the word "CLEAR" to appear in 

% commend lists to force a clear screen when desired. 

HH HE HE HEHE HE HEHE DE HEHE DE DE DE HEHE HK DE HE HEE DE DK DE DE HE HE DK DE EE HK DK DE EE DK DEE HE EE DDE HEE DK DE OE DE DK DE DEE DK DE HEE DK DE DEE DK DE EE EK 
% These three special symbols must be defined or the 

X associated key will not work at all!!! 

’ CMDMDL MOD=DSINDP,TYPE=I,CTL=S ENTER KEY W/ODATA CX'7D") QUOTE 
a CMDMDL MOD=DSICKP,TYPE=I,CTL=S CLEAR KEY (X'6D') UNDERSCORE 

> CMDMDL MOD=DSINDP,TYPE=I,CTL=S PA2 KEY W/ODATA (X'7D"') QUOTE 
HIE HE HE HEHEHE HE BC HEHE DE DE DE HEHE SE DE DE HE IE DE DE DE DE IE IEE DEE HE DE DK DEE DE DK DE HEE DK DK DK DE EE KE EE EE HK EEK HK HHH RK 
% REGULAR COMMANDS © x 


SS 2.2.2.0. 0.5.0,0,0. 0.0.0.0, 0,5,0,0,0,.0.0,0.0,0,0,5,¢,.0,.0,0,0,5.9,0,0,5,0,0,0,0,0,0,9,0,0,9,.0,9,0,0,0,0,0,0,4,.0,0,0,.0,.0, 0.0.0. 0.0.0,.0, 5,05 


AGAIN CMDMDL MOD=DSIAGAIN 
* SHORT FORM OF LIST COMMAND 
L CMDMDL MOD=DSISHP 
PARMSYN CLIST,CL 
PARMSYN PROFILE,PR 
PARMSYN SPAN,SP 
PARMSYN STATUS,ST 
PARMSYN TASKS,TAS 
PARMSYN SPANS,SPA 
PARMSYN PROFILES,PRO 
LIST CMDMDL MOD=DSISHP 
PARMSYN CLIST,CL 
PARMSYN PROFILE,PR 
PARMSYN SPAN,SP 
PARMSYN STATUS,ST 
PARMSYN TASKS,TAS 
PARMSYN SPANS,SPA 
PARMSYN PROFILES,PRO 
LOG CMDMDL MOD=DSIENP 
LOGOFF |§CMDMDL MOD=DSIENP 
MOVE CMDMDL MOD=DSISWP 
MSG CMDMDL MOD=DSIMGP 
PAUSE CMDMDL MOD=DSIPSP 
ROUTE CMDMDL MOD=DSIRTP 
RO CMDMDL MOD=DSIRTP 
START CMDMDL MOD=DSISRP 
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PARMSYN HCL,HC 
PARMSYN DOMAIN,DO 
PARMSYN TERM,TE 
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PARMSYN SPAN,SP 
PARMSYN RESOURCE,RE 
*% SHORT FORM OF START COMMAND 
$ -. CMDMDL MOD=DSISRP 
PARMSYN HCL,HC 
PARMSYN DOMAIN,DO 
PARMSYN TERM,TE 
PARMSYN SPAN,SP 
PARMSYN RESOURCE,RE 
STOP GADMDL MOD=DSISTP 
PARMSYN HCL,HC 
PARMSYN DOMAIN,DO 
PARMSYN TERM,TE 
PARMSYN SPAN,SP 
PARMSYN RESOURCE,RE 
* SHORT FORM OF STOP COMMAND 
P CMDMDL MOD=DSISTP 
PARMSYN HCL,HC 
PARMSYN DOMAIN, DO 
PARMSYN TERM,TE 
PARMSYN SPAN,SP | 
PARMSYN RESOURCE,RE 
HE HE HE HE HE HE HE HK HE IEE HE HE EE KE KE EK DE SE EK HE HK IE HE EK HE DE EK EE HE KE HE DE HE KE SE EE EEK KEK EK KE HK HK HEH HEHEHE HE HK HK KA KK 


% VTAM COMMANDS | a % 
HE HE HE DE DE HEE DE HE DE DED HE DE DE DE DE DE DE EDK DE DE DK DE DE DK DE DE DK IE 3 DE DE DE DE DE DK DE DK IE DK DE KD DK IE DE DK DD DK DE DE DK DE DK EDK DE DE DK DE OE OK IE HE 
D CMDMDL MOD=DSIVTP 
DISPLAY CMDMDL MOD=DSIVTP 
F CMDMDL MOD=DSIVTP 
MODIFY  CMDMDL MOD=DSIVTP 
R CMDMDL MOD=DSIREP 
~ REPLY CMDMDL MOD=DSIREP 
Vo. CMDMDL MOD=DSIVTP 
VARY CMDMDL MOD=DSIVTP 


HE HH HEH HEH EHH HEH HE HDD HEHE IKK HE HE DK DHE HE DK 3 HE DE DK DHE HE DK OK HE HK DK 3 HE HE DK DHE DE DK DHE DE DK 3 HE IE DK DK HEHE HE DKK EK 
* YOUR COMMAND LIST NAMES GO HERE 
* THE MODULE NAME MUST BE DSICCP 
* NAME CMDMDL MOD=DSICCP 
HEHEHE HEHE DE HE HEHEHE HE HEE HEHEHE HE HE EEK HE EE HK HE EK HK EE IE HE DE DE HE DE DE IK 3 DE HK HE DE DE DK DE DE DK DEE DE DE DK HE 3 OK DE DE IK HE DEE KEE 
ACT CMDMDL MOD=DSICCP 
INACT CMDMDL MOD=DSICCP 
TRACE CMDMDL MOD=DSICCP 
NOTRACE CMDMDL MOD=DSICCP 
END 


5. Command Lists 


¥XXCLIST to vary active: ACT 
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-4 ADD NAME=ACT 
VARY NET,ACT,ID=&1 
HE HE HE HK HEHE HE HE HK DE HE DE IE EH DK DEE DE DE DE DE HEE DE DE BE HE DE DE DE IK HE DE DE IE EEE HE DE HE DEE HE DE DE DE DK HE HE DEE HE EEE HK HEHEHE HK HK HHH 


¥*XX¥CLIST to vary inactive: INACT 


-7 ADD NAME=INACT 
VARY NET,INACT, ID=&1,&2 


HEH HH HE HEHE HE DE HEE HE HE HEHE HE HEE HEHE HE HEE HEE HEHE DE HE HEE DE HE IE IEE HE HE HEHE HEHE HEHE HE HE HEE HE HE HEHEHE HEHEHE HEHE HH HH HHH KKK KH 
XX¥XCLIST to start io and buffer trace: TRACE 


-4 ADD NAME=TRACE 
F NET, TRACE, ID=&1,TYPE=I0 
F NET, TRACE,ID=&1, TYPE=BUF 


HE HE HE HEHEHE HK HE HEHEHE HK DE DE DE DE HE DE DE DEK HK DK DEE HE DK DE DEE HK IK DB DE DE DE DK DK DE EK DK DK DE HE HK DE BE DE HE HK DEE HE DK DE DEK HK DK DEE DE DE IE HE HK DE 
¥¥XCLIST to stop io and buffer trace: NOTRACE 


-f ADD NAME=NOTRACE 
F NET,NOTRACE, ID=&1, TYPE=I0 
F NET,NOTRACE, ID=&1, TYPE=BUF 


HEHE HE HE HE HE HE HE HE HK HK HE HE EK HK EE HK EE HE EE HE KE EK HE EE HK EE HEE HE DE KE DE KE HEE EE HE DE DE HE EEE SE HEE EK DEE EE EE EEE REN 


6. NOSP start procedure 


I HE HE HE HEHEHE HE HE HEHE HK HE DE DE DE HE HE HK DE DE HE HK DE DE HE HE DE DE DE IE IK HK DK DE OE HE HE NK BEE HE HE IK DK DEE HK DE HE IE HK DK DE DE HE HK DK DE DE HE NK DE DE IK EEK IC HE 
*¥*¥The first step of the procedure is to delete the NOSP disk log 
*¥¥¥since it will be used again. The NOSP program is linked under 
*¥¥the name DSIMNT. All the NOSP definition members are filed in 
*¥*¥*¥a PDS named NOSP.CMND.LIST. 

SS to 2.2 2.2.2.0, 0,. 0.0.0. 0,5,5,5,0,.0,. 5.5. 2,5,0,5.9,5,0.9,5,5,5,9,9,5,5,9,5,5,5,5,9,5,5,5,5,9,5.9,5,5,5,9,9,5, 5,0, 9,9, 5,978 2,5,0,9,0,0,5,53 

//NOSP JOB 

//A\CFNOS1 EXEC PGM=IEFBR14,REGION=512K 

7/D0D1 DD DSN=NOSPLOG, DISP=C(COLD,DELETE, DELETE), VOL=SER=nnnnnn, 

// UNIT=3340 

//STEP2 EXEC PGM=DSIMNT, TIME=1440,REGION=1024K 

//SYSPRINT DD SYSOUT=A 

//7SYSUDUMP DD SYSOUT=A 

//DOSICLD DD DSN=NOSP.CMND.LIST,DISP=SHR 

7/DSTPARM DD DSN=NOSP.CMND.LIST,DISP=SHR 

7/DSIVTAM DD DSN=SYS1.VTAMLST,DISP=SHR 

7/DSIPRFE DD DSN=NOSP.CMND.LIST,DISP=SHR 

//DSILOG DD DSN=NOSPLOG, VOL=SER=nnnnnn, SPACE=C(CYL,(2,1)), 
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// DCB=CLRECL=344,BLKSIZE=900, RECFM= VB, DSORG= PS), UNIT= 3340, 
4/ DISP=CNEW, KEEP) 


The PRINTLOG should be a step that prints the log or dumps it to 
tape. COND=EVEN should be coded, else if you Forget to run the 
printlog then you will lose the data. 


7. NOSP APPL statements 

HE HE EH HEE KDE DE HE HE DK DE DE IEE 3 DE EE DK DK DE DE IE DE DE DK DE DE EDK DK DE DE IK DK DE EK DE DEE IEE DK OK DEE HE DE DK DE EE DK OE DEE DK DE DEE EK EH 
NOSP1 and NOSPIPPT sare activated when NOSP is started. In addition, 
a subtask will be activated at startup for each hardcopy log 
specified in the HCL parameter of the PROFILE statement. The other 
subtasks will become active as operators sign on. This definition 
sllows five operstors and/or hardcopy logs to be active concurrently. 

HE HEHE HEHE DE HE HEE HE DE EK DE DE HE DE EE DE NE DE DE DE ED BEE DE DE DE HE DE DE DE DE DE DE DE DE DEE DE DE DE OE DK DEE SE DE DE DE DE DE DE 3K DEK EE EEK EE KEK 

HIAPPLS VBUILD TYPE=APPL | 

NOSPI APPL AUTH=CACQ,PASS,NVPACE) ,PRTICT=NOSP1,EAS=1 

NOSPIPPT APPL AUTH=CPPO0),EAS=1 

NOSP1000 APPL AUTH=CSP0,ACQ,NVPACE),EAS=2 

NOSP1O001 APPL AUTH=C(SP0,ACQ,NVPACE), EAS=2 

NOSP1002 APPL AUTH=CSP0,ACQ,NVPACE), EAS=2 

NOSP1003 APPL AUTH=C(SPO0,ACQ,NVPACE),EAS=2 

NOSP1004 APPL AUTH=CSP0,ACQ,NVPACE), EAS=2 


Note: EAS should be greater than or equal to the number of domains. 


8. Logon Mode Table entry 


HEHE HE 3 DE DK HEE 3 DE DE DE DK DE DE DEE EK DK DK DE DE DE DE DE DE DK DE DE DE 3 DE DE DE IE DE HE DE DE DE DEE DK DK EE DE OE DK IK DE DE DE DE OE DE DK OK DK EE OE DE OE DEE EK 
* MODE TABLE FOR 3277 LOCAL OR REMOTE MOD 1/72 AND 11712 FOR NOSP 

DE HE HE DE DE DE DE HE DE BE DE DK DE HE HE HE DE DE DE DE HEE EEK HEE DE DE DK DK HEE EE EE EK EK DE HE EE DE DK OK HEE DE DE EE EK HE EE HN 
NOSPTAB MODETAB 


MODEENT LOGMODE=DSILGMOD, Xx 
FMPROF=X‘'02"',TSPROF=X‘"02",PRIPROT=X'71", X 
SECPROT=X'40',COMPROT=X'2000' ,RUSIZES=X'0000', X 
PSERVIC=X*000000000000000000000200" 

MODEEND 

END 


3. USS Table 


¥¥X This USS table entry allows the operator to sign on to NOSP by 
keying tn NOSP. NOSPI1 is the name on the first APPL statement. 
NOSP USSCMD CMD=NOSP,REP=LOGON, FORMAT=BAL 
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USSPARM PARM=APPLID,REP=APPLID,DEFAULT=NOSP1 
USSPARM PARM=LOGMODE, REP=LOGMODE, DEFAULT=DSILGMOD 
USSPARM PARM=P1,REP=DATA 


10. Logon Intrepet Table 


HEH DE HEHEHE KE DE HEHEHE IE HE HE DE HEHEHE HK HK DE HE SDK DEE HE DE DE OE HE DE NK DE DE EE HE DK DK DE HE DE DE DK DEE HE DK DE OE HE DK DE DE IE DE DE DE DE HE HE DE DEE KDE EE 
*¥¥*% Make sure to put in both upper and lower case entry since NETSOL 
does not translate. 

HE HE HE HE HEHE IE DE HE HE HEE IE DE EE HEHE DE DK DE HE IE DK DE DE ME DE DE DE HE IE DK DK DE DE DE DE DE DE DEE DE DE DE IE HE DE DEE HE DE DE DE DENK DK DE DE DEE DE DE DE EDEN 
LOGTAB INTAB 

% 

x 

LOGCHAR APPLID=CAPPLICID,NOSP1),SEQNCE="NOSP' 

LOGCHAR APPLID=CAPPLICID,NOSP1),SEQNCE='"nosp' 

x 

% 

ENDINTAB 

END 


ll. Procedure for printing disk log 


HEHE DE HE HEHEHE HE HE HEHEHE KE HE HEHE DE HEHE HE HE HEHEHE HEE HIE IK HK HEE HE HEHE EK HK HHH HK HHH MRK HK 
//NOSPRT EXEC PGM=DSIPRT 

//DSILOG DD DSN=NOSPLOG, VOL=SER=nnnnnn, UNIT=3340, 

4/7 DCB=CLRECL=344,BLKSIZE=900,RECFM=VB,DSORG=PS),DISP=COLD,KEEP) 
/7DSTINP DD DUMMY, DCB=CBLKSIZE=80) 

/7DSILST DD SYSOUT=A,DCB=CBLKSIZE=133) 

/7SYSPRINT DD SYSOUT=A 
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NOSP INSTALLATION 
NOSP FLOW 


This is a very brief overview of some NOSP processing logic. 

It is related to the above examples of a single domain system. 

This logic flow does not include all exit processing, does not 
include much of the communicstion with the system operstor, does 

not include the handling of unsolicited messages from VTAM, nor 
does it include error processing. It is intended to help show how 
the various dataset members, CLISTS, user exits, and command 
processors are used during NOSP execution. 

AN * beside a member or dataset name means they may be user defined. 


BE 3 HE HE DE HE DE DE HE DE DE DE DE DE HE DE DE DE DE HE DC DEE DK HE DE DEC DE DE DE DK DE DE DE IE DE DK DE DE DE DE DE DE IE DE DE DE DE HE DE DE HE DE DEE DE DEE DE DE HE DE DEE DE DE IE DE IEE 
INPUT USED ACTIVITY 


1. Start-up Start-up proc NOSP is started. 


The member DSICMD jis read 

into main storage at init. time. 

All axits must be placed 

in the LINKLIB itn the form 

DSITEXnn Cnn=01 thru 14). 

These sre loaded at init. time. 
(See example 6) 


APPL statements Activate NOSP1l. 
(See example 7) 
Activate NOSPIPPT. 


Profile statement Activate 1 subtask for each hardcopy 
(See example 2) log CHCL) specified. 


Leave outstanding message for system 
operator to enter valid NOSP system 
operator command. 


Wait for logons Cassuming no automatic 
logons). 


2. Logon USSTAB, MODETAB, Operator enters logon for NOSP. 
LOG. INTREP. TABLE 
(See ex. 8-9-10) 
Nosp displays logon screen. 


Operator keys id and password. © 


DSIOPF member of NOSP validates id and password. 
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NOSP.CMND.LIST* 
(See example 1) 


APPL statements NOSP opens ACB for this operator 
(See example 6) subtaesk Cneed APPL statement which 
will be activated). 


PROF1¥ member of Acquire hardcopy log CHCL) for this 

NOSP.CMND.LISTX operator if specified, or if already 
acquired on behalf of another 
operator, then begin sending traffic 
to the Hardcopy Task. 


Display message to operator, send 
message to hardcopy log and disk log. 


3. Command Operstor enters command. 
Execution 
DSIEXO01 member Execute user exit if present. 
of LINKLIB* 


Validate command syntax. 


DSICMD member of Search for entry with label = the 
NOSP.CMND.LIST* verb Ceg. VARY). 


Send message to operstor that 
command was accepted, log request 
and NOSP response on hardcopy log 
and disk log. CExecute DSIEX02 and 
DSIEX04, if they exist). 


If NOSP cannot find the command 
name in the System Command Table 
or if the name points to 
MOD=DSICCP and the CLIST 

is NOT on disk the same 

error message is produced. 


DSIVTP, DSISRP, | Execute code in member that 15s 
DSICCP, etc. specified in MOD parameter of 
members of DSICMD entry. This may be a NOSP 
LINKLIBX supplied member or a user written 


command processor. 


4. Command This logic is used only when the 
Lists MOD specified was DSICCP, which 
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must be the MOD for all command 


lists. 
ACTX, TRACEX, DSICCP searches for "member! with 
etc. members of same name as this user-defined 


NOSP.CMND.LIST* command verb Ceg. ACT, TRACE). 
Command list is executed in sequence. 


5. VTAM This logic is used only when the 
COMMANDS command is 8s standard VTAM command. 
When a VITAM command is entered 
then DSIVTP is the command processor 
which is invoked. If an operator 
is using a SPECIFIC profile than the 
SPAN is checked by this module. 


DSIEX05 member Execute user written exit, if there. 
of LINKLIB* 


Send command to VTAM for execution 
and wait for response CSENDCMD and 
RECVCMD of VTAM'S programmed operstor 
facility~POF). 

DSIEX06 member Execute user written exit, if there. 


of LINKLIBxX 


6. Command DSIEX02 member Execute user written exit, if there. 
Output of LINKLIBX 
If you delete sa message in DSIEX02 
then it will not be logged 
on the disk or HARDCOPY. 
Send response to command to operator. 


DSIEX0% member Execute user written exit if there. 
of LINKLIB* 


Log response on hardcopy log. 
Log response on disk log. 
Return to Command Execution (#3). 


7. Logoff. Operator enters LOGOFF. 
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8. Terminating 
NOSP 


G3260-6028 (2/7393) 


DSIEX14 member 
of LINKLIBx 


NOSP INSTALLATION 


Execute user written exit, if there. 


Close ACB, subtask becomes Inactive, 
terminate session with hardcopy log 
and deactivate its subtask if no other 
operators sre using it. 


Send message to operator, log on 
hardcopy and disk. 


NOSP or System operator enters CLOSE. 


If CLOSE IMMED was entered, all 
subtasks will be deactivated without 
messages and NOSP will be ABENDED. 


If just CLOSE was entered, 3 message 
is sent to each active operetor and 

the system console. No more logons 

sre accepted. 


When the last operator has logged 
off, all ACB"s will be closed and 
NOSP will be ended normally. 
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SNA APPLICATION INTERFACE CCICS) 


CHAPTER 12 : SNA APPLICATION INTERFACES 


This section contains sample generation or system definitions for 
some of the common SNA application programs. 
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SNA APPLICATION INTERFACE CCICS) 
CICS/VS R1.4 TERMINAL CONTROL TABLE (CDFHTCT) 


wmoseece = WOE TERRE EE = Maa omnaereantemetttan 


HEHEHE HEHEHE HEHEHE HEHEHE HEHE HEHE HEIDE HEHE HEHEHE IEEE IK DEDEDE HE HE DE IK IE IE HE HE HE DE DED I D3 HEE HE DK DO IK DH IE HE I DE IIE 


XXX 7 | | ¥% RHR 
xXx TCT FOR MVS A ISC SYSTEM | xx 
RR | _ | XX 
Pretest t et eeteet i tite tetetetitetist ti petetetrsttttitstiti tet rest trees: 
DFHTCT TYPE=INITIAL,ACCMETH=CNONVTAM, VTAM) ,APPLID=CICSMA, X 


RAMAX=256 ,RAMIN=0,RATIMES=8,RAPOOL=2,RESP=FME, SUFFIX=MA,X 
GMTEXT="YOU ARE CONNECTED TO MVS CICS A’ 


* Re XN RNR NHR HN NR NX KR KR NNR NR RK 

* * ENTRIES FOR BSC3770 CAS 2770) * *® X 

* RX XR KKH NRK HR RH KH KX KR KN KR KR KR XR 
DFHTCT TYPE=SDSCI,DEVICE=2770,DSCNAME=P2770,BSCODE=EBCDIC 

PLST770 DFTRMLST AUTOWLST, (C1IC1FO02D,37373737) 

OLST770 DFTRMLST OPENLST, C8181112D) 


K K 
Kx K XK 


DFHTCT TYPE=LINE,ACCMETH=BTAM, TRMTYPE=2770,DSCNAME=P2770, ® 
BTAMRLN=1,TCTUAL=20,INAREAL=517, | as 
FEATURE=CAUTOPOLL),LISTADR=(PLST770,WRAP),GENPOLL=YES, x 
CLASS=CHARDCOPY,BISYNC, CONV) 

PC74 DFHTCT TYPE=TERMINAL, TRMPRTY=100, TRMTYPE=2770,TRMIDNT=PC74, * 
TIOAL=517, TRMSTAT=TRANSCEIVE, TCTUAL=20,LASTTRM=LINE, % 


BUFFER=256, TRMADDR=OLST770 


Pe SS SPSS SSP PLS S SSS SESS ESSE SESS STS SS SSS SSS SES TSE SESE SSS SSS SST SPSS SSS SSS SF 

%¥¥x* THE FOLLOWING ENTRIES ARE FOR VTAM TERMINALS ONLY KKK HEX 

HE HEHE HK HE HE HE HE KE EK EE KEE EE EK KE EE KE KE EEE EK KE EK EK EK EEK KEK KKK KKK KKK KK KK KHKHRKKR 

x 

HEHEHE EK EK EK EK KE EK EEE EHR MRK KK HK HKH 

x ISC LINKS | x 

SE HEE HK HK HK KE EEE KEK EK EK KK EEE EK EK KKM RN 

x 

MVSB DFHTCT TYPE=ISLINK,ACCMETH=VTAM, SYSIDNT=MVSB,NETNAME=CICSMB, X 
TRMIDNT=MVSB, SESTYPE=SEND, CHNASSY=YES, x 
RUSIZE=512, BUFFER=512, TIOAL=512, TRMSTAT=TRANSCEIVE 

* 

DOSB DFHTCT TYPE=ISLINK,ACCMETH=VTAM,SYSIDNT=DOSB,NETNAME=CICSDB, X 
TRMIDNT=D0SB,SESTYPE=SEND, CHNASSY=YES, x 
RUSIZE=512, BUFFER=512, TIOAL=512, TRMSTAT=TRANSCEIVE 
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CICS LOCAL 3272 


KEK HK HK HK HEIKKI HHH HK HK KH HHH KH HHH HHH KKK KKK 


* LOCAL 3272 * 
HEH HE HE DE HEHE DE DK DE HEC EK DE DE EK 3 DEDEDE DE KEE EHR 


LOCO DFHTCT TYPE=TERMINAL, TRMIDNT=LOCO, TRMTYPE=3277,TRMMODL=2, X 
ACCMETH=VTAM, TIOAL=1500, TRMSTAT=TRANSCEIVE, X 
NETNAME=LU4C0,RELREQ=CYES, YES), TCTUAL=20, X 


BMSFEAT=NOROUTEALL, FEATURE=(DCKYBD) , GMMSG=YES 


CICS REMOTE 3271 


HK HH HK HEH HE HK HE HE HK HE EK HEE HK HK HK KKH HK HK HH KKK KKK 


x REMOTE 3271] % 
PES SSS P SESE SESS SS SSS SES SSPE PESTS SS tts FF 


LUVO DFHTCT TYPE=TERMINAL, TRMIDNT=LUVO,TRMTYPE=3277,TRMMODL=2, 
ACCMETH=VTAM, TIOAL=1500,NETNAME=LU3270V0,GMMSG=YES, 
TRMSTAT=TRANSCEIVE,RELREQ=CYES, YES), TCTUAL=20, 
FEATURE=C(DCKYBD, SELCTPEN) 


Kx «KX 
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SNA APPLICATION INTERFACE (CICS) 


CICS LOCAL 3274 


HE HE HE HE HEHE HE HE HE DE IE HEE DE DE DE HE DEK 3E IK DE DK DE SE DE DE DK DE DE DE DE DE DC 3K DE DE DEE 


% 


LOCAL 3274-1A x 


DE HK HE DE DK HE DE HE HE HE DE HEE HE DEE IE IE EK DE DE DE EK SE EE HEE KE DE EEE EE EX 


LAOl 


LAO2 


LAQ7 


LA08 


LBOl 
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DFHTCT TYPE=TERMINAL, TRMIDNT=LA01, TRMTYPE=LUTYPE2, TRMMODL=1, 
ACCMETH=VTAM, TIOAL=(€1024,4096),NETNAME=LHAPAOL, 
TRMSTAT=TRANSCEIVE,RELREQ=CYES, YES), CONNECT=NO, 
FEATURE=CDCKYBD,SELCTPEN, AUDALARM, UCTRAN) ,GMMSG=YES, 
RUSIZE=1024,BRACKET=YES,PGESIZE=(12,40),BUFFER=1536, 
PRINTTO=LA07,ALTPRT=LA08,PGESTAT=PAGE, CHNASSY=YES, 
ALTPGE=(€12,80),DEFSCRN=(12,40),ALTSCRN=(12,80) 

DFHTCT TYPE=TERMINAL, TRMIDNT=LA02, TRMTYPE=LUTYPE2, TRMMODL=2, 
ACCMETH=VTAM, TICAL=€1024,4096) ,NETNAME=LHAPAO2, 
TRMSTAT=TRANSCEIVE,RELREQ=CYES, YES) ,CONNECT=NO, 
FEATURE=(DCKYBD,SELCTPEN, AUDALARM, UCTRAN), GMMSG=YES, 
RUSIZE=1024, BRACKET=YES,PGESIZE=(24,80),BUFFER=1536, 
PRINTTO=LA07,ALTPRT=LA08,PGESTAT=PAGE,CHNASSY=YES, 
ALTPGE=(€43,80),DEFSCRN=(24,80),ALTSCRN=(43,80) 

DFHTCT TYPE=TERMINAL, TRMIDNT=LA07,TRMTYPE=LUTYPES,  TRMMODL=2, 
ACCMETH=VTAM,NETNAME=LHAPA07, BUFFER=1536, 
TRMSTAT=TRANSCEIVE 

DFHTCT TYPE=TERMINAL, TRMIDNT=LA08, TRMTYPE=SCSPRT,TRMMODL=2, 
ACCMETH=VTAM,NETNAME=LHAPA08, BUFFER=1536, 
TRMSTAT=TRANSCEIVE,HF=YES,VF=YES 

DFHTCT TYPE=TERMINAL, TRMIDNT=LBO1,TRMTYPE=LUTYPE2, TRMMODL=2, 
ACCMETH=VTAM, TIOAL=(1024,4096),NETNAME=LHAPBOI, 
TRMSTAT=TRANSCEIVE,RELREQ=CYES,YES),CONNECT=NO, 
FEATURE=C(DCKYBD,SELCTPEN, AUDALARM, UCTRAN) , GMMSG=YES, 
RUSIZE=1024, BRACKET=YES, PGESIZE=(24,80), BUFFER=1536, 
PGESTAT=PAGE, CHNASSY=YES 


MK KK KK 


~ X< x XK Mm KKK KM XK 


MK KK MK 
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CICS REMOTE 3274 


HK HHH HH HEH HEHE HK HEHE HEE HE KE HE HE EE HE HK HE HE HE KEK EK EK HM 


x REMOTE 3274-1¢ x 
HE EE DE HEH HEHE HEHE HE DE DE DE EEE DK KEE OE HMMM 


PAO] DFHTCT TYPE=TERMINAL, TRMIDNT=PA01,TRMTYPE=LUTYPE2, TRMMODL=2, 
ACCMETH=VTAM, TIOAL=(€1024,4096),NETNAME=SDLCPAOL, 
TRMSTAT=TRANSCEIVE,RELREQ=CYES, YES) , CONNECT=NO, 
FEATURE=CDCKYBD, SELCTPEN, AUDALARM, UCTRAN,PTRADAPT), 
BUFFER=0,RUSIZE=1024, BRACKET=YES,PGESIZE=(24,80), 
ALTPGE=(43,80) ,DEFSCRN=(24,80),ALTSCRN=(43,80), 
PGESTAT=PAGE;, CHNASSY=YES, GMMSG=YES 

PAO? DFHTCT TYPE=TERMINAL, TRMIDNT=PA07, TRMTYPE=LUTYPE3S, TRMMODL=2, 
ACCMETR=VTAM,NETNAME=SDLCPA07,BUFFER=0, 
TRMSTAT=TRANSCEIVE 

PA08 DFHTCT TYPE=TERMINAL, TRMIDNT=PA08,TRMTYPE=SCSPRT,TRMMODL=2, 
ACCMETH=VTAM, NETNAME=SDLCPA08, BUFFER=1024, 
TRMSTAT=TRANSCEIVE,HF=YES,VF=YES 

PBOl DFHTCT TYPE=TERMINAL, TRMIDNT=PB01,TRMTYPE=LUTYPE2, TRMMODL=2, 
ACCMETH=VTAM, TIOAL=€1024,4096),NETNAME=SDLCPBO1, 
TRMSTAT=TRANSCEIVE,RELREQ=CYES, YES), CONNECT=NO, 
FEATURE=(DCKYBD, SELCTPEN, AUDALARM, UCTRAN) .GMMSG=YES, 
BUFFER=0,RUSIZE=1024, BRACKET=YES, PGESIZE=(24,80), 
PGESTAT=PAGE, CHNASSY=YES 

HE HEH KKH HEH HK IKE HE HE HK EEK EK KEK KKK MK KKK KKK KKK 

x REMOTE 3276 

HE HK HE HK HEH HE HEHE KE HE HE KE HE EK EEE EK EK EK EEE KEK KKK 

* 

P761 DFHTCT TYPE=TERMINAL, TRMIDNT=P761,TRMTYPE=LUTYPEZ, TRMMODL=2, 
ACCMETH=VTAM, TIOAL=(2048,4096) ,NETNAME=SDLC76P1, 
TRMSTAT=TRANSCEIVE,RELREQ=CYES, YES), CONNECT=NO, 
FEATURE=CDCKYBD,SELCTPEN, AUDALARM, UCTRAN,PTRADAPT) >, 
BUFFER=0,RUSIZE=2048, BRACKET=YES,PGESIZE=(24,80), 
ALTPGE=(24,80) , DEFSCRN=(24,80),ALTSCRN=(24,80), 
PGESTAT=PAGE, CHNASSY=YES,GMMSG=YES 

P767 DFHTCT TYPE=TERMINAL, TRMIDNT=P767,TRMTYPE=LUTYPE3,TRMMODL=2, X 
ACCMETH=VTAM, NETNAME=SDLC76P7,BUFFER=0, X 
TRMSTAT=TRANSCEIVE 

P7638 DFHTCT TYPE=TERMINAL, TRMIDNT=P768, TRMTYPE=SCSPRT, TRMMODL=2, X 
ACCMETH=VTAM, NETNAME=SDLC76P8, BUFFER=1024¢, X 
TRMSTAT=TRANSCEIVE,HF=YES,VF=YES 


x KK KK XK 


~ XK 


< 


mM MK MK OK 


MK KKK 
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SNA APPLICATION INTERFACE (CICS) 


CICS REMOTE 3767 


3 HE HEE HE HE HE HED HE HED DK HE 3 DHE DH HH HED OO HD HD 3 WE 


as REMOTE 3767 ns * 
HH HEHEHE HK HE HEH HEHE HE HEH HEHE HEHE HE HE HE DK HE HE DK HE HE HE HE KE HE DK HE HE HK HE HK HE HE HK HE HE HEH HH HHH HH RHI 


LU67V DFHTCT TYPE=TERMINAL, TRMIDNT=LU67V, TRMTYPE=3767, 
| ACCMETH=VTAM, TIOAL=(256,768) ,NETNAME=TR3767V, 
TRMSTAT=TRANSCEIVE, RELREQ=( YES, YES) , PGESTAT=PAGE, 
PGESIZE=(12,80), BUFFER=256 , BRACKET=YES , CHNASSY=YES 


x XK MK 
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CICS REMOTE 377% 


HE HE HEHE HE DHE DE EE HE HE HK DE DE HE DE EE EK IE EE HE HEE EE HE EK DE HE KK DE EK DE EE HEE KE HEE DE EEE EEK EE EEE MEK HK RK 


% REMOTE 3774 * 
HEHE HEE DK DH DK HE HE HE HE SEE HE HE DE HE HE DE HEE DE DE DE DE DE DE DK DK HE HE EE DEE DE DE DE EE HE EE EEK EK HK KE DE HE HE EE HE HEE HE EE EK 


LU71 DFHTCT TYPE=TERMINAL, TRMIDNT=LU71, TRMTYPE=BCHLU, 
ACCMETH=VTAM, TIOAL=(256,1024) ,RUSIZE=256, 
TRMSTAT=TRANSCEIVE, RELREQ=CYES, YES) ,PGESTAT=PAGE, 
PGESIZE=(12,80), BUFFER=256 , BRACKET=YES , CHNASSY=YES, 
NETNAME=P70LU1 | 

LU72 DFHTCT TYPE=TERMINAL , TRMIDNT=LU72, TRMTYPE=LUTYPE2, 
ACCMETH=VTAM, TIOAL=(256,2048),RUSIZE=256, 
TRMSTAT=TRANSCEIVE, RELREQ=CYES, YES) »PGESTAT=PAGE,> 
PGESIZE=(12,80),BUFFER=256, BRACKET=YES, CHNASSY=YES, 
NETNAME=P70LU2,GMMSG=YES 

LU73 DFHTCT TYPE=TERMINAL, TRMIDNT=LU73, TRMTYPE=3790, | 
ACCMETH=VTAM, TIOAL=(256,1024) ,RUSIZE=256, 
TRMSTAT=TRANSCEIVE, RELREQ=CYES, YES) ,PGESTAT=PAGE, 
PGESIZE=(12,80),BUFFER=256, BRACKET=YES, CHNASSY=YES, 
LASTTRM=VTAM, SESTYPE=USERPROG, NETNAME=P70LU 

DFHTCT TYPE=FINAL | 
END DFHTCTBA 


MK KK 


Mm KK OK 


mM KK OK 
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SNA APPLICATION INTERFACE CIMS) 
IMS/VS NUCLEUS GENERATION 


TITLE "IMS/VS 1.1.5 FIELD TEST LEVEL ®® IMS5 ¥x' 


IMSCTRL SYSTEM=(VS/2,ALL,3.7)> 

| MAXI0=(50,20), 
MAXREGN=(5,256K), 
MAXCLAS=10, 
IMSID=IMS5, 


K K K K 


HEHE DE 3 HE HEHE HK IE IE HE DE DE IE HE HE DE HK HE HEE DE HE HEHE DE DE HK HEE HE DE HE HE DE DK HE EE DE DE IK HE HE DE DE DK DE HE HE DE DE HK HE HE DE DK HE HE DE IE IE HE EEK IE KE HEE 


COMM RECANY=(6,3842), 
APPLID=IMS, 
SECCNT=3, 
OPTIONS=(NOPSND, 
TERMINAL» 
PAGING, 
TIMESTAMP, 

4056, | 
FMTMAST, 
NOUSEMSG, 
NOMSTEX;, 
NOMSPEX, 
NOCIPH, 
VTAMAUTH, 
BLKREQD) 


KK KK KK KOK OK OK KX K OK K 


DE HE HE HE HE IE IE HE HE HE DE DE HE HE DE DE HK DE HE HE HE SK HE KK HE DE NE IE DE DE IE IE DE DE DK HE HE DE DE DE IE HE DE HE DE DE HE DE DE HE DE DE HEE HE DE HK HE DE EE EEE HE EMM 


IMSCTF SVCNO=(236,237,238), 
APNDG=(Z5), 
CPLOG=9000, 
CORE=(16,200,4,2), 
LOG=(SNGL,MONITOR), 
DYLOG=(3330,2043,4) 


K K K K XK 


HEE 3 HEHE HE DE HE HE HE DE HE DE HE HE DE DE DE DE DK DE HED DE DE HE DE DK HE DC DE HK DE DK IE CDE HE HE DE DE HK HE HE DE DK HEE DE HK IE HE DE DK HE DE DE HEE DE DE HE DE DK HE DE DE DE IK IEE 
SPAREA CORE=(€3,4096),DASD=(15,6144) 
HE 3 HE 3 3 HE 3 9 HE 3 DE DE DE DE HE DE DEE DE DE HE DE DE HE DE DE NE DE HE HE DE HE HE DE DK HEE DE HE DE DE DE HE DC DE HE DE DE IE 3 DEE 3 DE 3E DE HE DE DE DE DE DE HE DEE IE IE 


BUFPOOLS PSB=12000, % 


PSBW=12000, . a x 


~DMB=12000, Pe Pas x 
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DBASE=20000, 
GENERAL=20000, 
FORMAT=100090, 
COMM=30000, 
FRE=50 


KX K K XK 


DE DE HE HE HE DEE DE DE DE NE SE SE IE HK IE DE HE HE HE SE EK IKE DE DE DE EE HE SE NE IE DE DE SE HEE KE SE DE DE SE KE EE DE DE EE SEE EE SE HE DE SEE EH EK EE OE EE EE 


MSGQUEUE DSETS=(C€3330,3330,3330), x 
RECLNG=(192,2304), x 
BUFFERS=(50,2304), x 
SHUTDWN=10 | 


TITLE "DATABASE DEFINITIONS’ 


DHE HE DE HEE HE EE HE EK HE HE DE HE HEE EE HE EE HEE SE DE DEE DE EE EE IE SEE DE DE NE DK DE EE IE EE IE EE OE HE EE DE SE EE EE KE KE HEE HK HK HHH 


XK KKK DATABASES FOR DATA DICTIONARY KKK 
HH HE HE HE HEHEHE HE NE DE IEE DE HK HEE DED DE BK DEK EO DE DE EK HEHE EE DE KE DE HE DE DEE OE EE KH EK KK KKK RR 


DATABASE DBD=DDSPDTE 
DATABASE DBD=DDSPSEG 
DATABASE DBD=DDSPDBS 
DATABASE DBD=DDSPPCB 
DATABASE DBD=DDSPSYS 


HEHE HK IE HE EK HE HEE DE HEE HE EE KE DE HE DE EE DE DE IEE DE DE SE SE DE DE DE DE DE DE DE DE IE DE DE EE DEK DE EK DE EE EE HE EE KK HK KKK KKK KK 


KH KKH DATABASES FOR IMS SAMPLE PROGRAM KXKKK 
HEHE HE HEHEHE HE HEHE HEN DE DHE DK DEE HE DEE KE HEHE HK HE ED DE HE EEE IE OE HK HE DE DE DK HEE DK DEE DE DE OK EE DEE EEK KK KK IE 


DATABASE DBD=DI21PART 
TITLE "TRANSACTION DEFINITIONS’ 


HH HEHEHE HEHE IE HK HE HEE IE IE HE HE HEE EE EK DK HE IEE HE EEK IE HEE KK DEK EE EK EE EK EEE EE EEK KKK KKK KKK 


KK RX DATABASES FOR IMS ADF AND ROTLINE SYSTEM KKK KX 
YE HE DE EK DE HE DE IE DEE DE DE DK DE DK DK 3K DK DE DE DE DE DE DE DK DE DE 3 DEE EDK DK DK DK DK DE DE DE 3 3 DE DE HE DE DK DK DK DE DE DE IE DE DK DE DK DE DE EEK EEK KH 


DATABASE DBD=MFDPARO1 
DATABASE DBD=MFDPSPO1 
DATABASE DBD=MFDPMSO1 
DATABASE DBD=HOTLDATA 
DATABASE INDEX, DBD=HOTLINDX 


DHE IE HE DE HE HE HE HE HK HE EE HEE HE EK EE EK HK HE HE KEK HEH HEE EK HE HE HE EK HEE HEE IE EK EE KE HEHE KEK EK KH KK KAKA K NH 


¥*¥X¥X  PSB'S AND TRANSACTIONS FOR DATA DICTIONARY | XXX 
HEHE HEH HEHEHE HEHE HEH HK HE HEE HE HK HE HE HEE DE DE HE DEE DEE IK HEE EE EK HE HE EE HE 3 EE DEE HK HEHEHE KK KKK KR KKK 


APPLCTN PSB=DBDIMSOV,PGMTYPE=CTP,OVLY) 
TRANSACT CODE=DBDIMSOV, SPA=(2816,CORE, FIXED) ,MODE=SNGL 
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SNA APPLICATION INTERFACE CIMS) 


APPLCTN PSB=DBDIMSD,PGMTYPE=C(TP,OVLY). | | 

TRANSACT CODE=DBDIMSD,SPA=(2816, CORE, FIXED) ,MODE=SNGL 
APPLCTN PSB=DBDIMSP,PGMTYPE=C(TP,OVLY) 

TRANSACT CODE=DBDIMSP,SPA=(712,CORE, FIXED) ,MODE=SNGL 
APPLCTN PSB=DBDIMSR,PGMTYPE=CTP,OVLY) 

TRANSACT CODE=DBDIMSR,SPA=(432,CORE, FIXED) ,MODE=SNGL 
APPLCTN PSB=DBDIMSU,PGMTYPE=CTP,OVLY) 

TRANSACT CODE=DBDIMSU,SPA=(432,CORE, FIXED) ,MODE=SNGL 
APPLCTN PSB=DBDIMSB,PGMTYPE=BATCH 


SS SPST esses esses esses esses sets srs sete essere sess esses sess ses ss esses esses sess ss: 


XX XXX PSB'S AND TRANSACTIONS FOR IMS/VS SAMPLE PROBLEM XX XXX 
PES EPSP SESE LSE SESS ESE SESS ESET ESET SSE TELE PSS SEEPS SES EES SESE SESE SES SLES SSS 


APPLCTN RESIDENT,PSB=DFSSAMO2, X 
PGMTYPE=CTP,,1) : 

TRANSACT CODE=PART, x 
PRTY=(7,10,2), % 
INQUIRY=YES, x 
MODE=SNGL 

APPLCTN RESIDENT,PSB=DMSPART, FOR DMS/3770 — % 
PGMTYPE=CTP,,1) COPY OF DFSSAMO02 

TRANSACT CODE=PARTDMS, MODIFIED FOR USE WITH ¥ 
PRTY=(€7,10,2), A DMS/3770 FP x 


SPA=C€300,CORE) 


APPLCTN RESIDENT,PSB=DFSSAMO3, x 
PGMTYPE=CTP,,13 | | 

TRANSACT CODE=DSPINV, ; * 
PRTY=(€7,10,2), | x 
INQUIRY=YES, x 
MODE=SNGL 

APPLCTN RESIDENT,PSB=DFSSAMO064, % 
PGMTYPE=CTP,,1) | 

TRANSACT CODE=ADDPART, * 
PRTY=(€7,10,2), ¥% 
INQUIRY=NO, x 
MODE=SNGL | | 

TRANSACT CODE=ADDINV, 7 | x 
PRTY=(7,10,23, % 
INQUIRY=NO, | x 
MODE=SNGL 

TRANSACT CODE=DLETPART, x 
PRTY=(€7,10,2), % 
INQUIRY=NO, x 
MODE=SNGL 
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TRANSACT CODE=DLETINV, x 
PRTY=(€7,10,2), * 
INQUIRY=NO, x 
MODE=SNGL 

APPLCTN RESIDENT,PSB=DFSSAMO5, * 
PGMTYPE=CTP,,1) 

TRANSACT CODE=CLOSE, ss 
PRTY=(7,10,2), % 
INQUIRY=NO, x 
MODE=SNGL 

APPLCTN RESIDENT,PSB=DFSSAM06, x 
PGMTYPE=CTP,,1) 

TRANSACT CODE=DISBURSE, x 
PRTY=(€7,10,2), x 
INQUIRY=NO, x 
MODE=SNGL 

SPACE 3 

APPLCTN RESIDENT,PSB=DFSSAMO07, % 
PGMTYPE=CTP,,1) 

TRANSACT CODE=DSPALLI, x 
PRTY=(7,10,2), % 
INQUIRY=YES, x 
MODE=SNGL 


HEHEHE HK KH HE HE HE EE HE DK DEE HEE DED HE EH DE DK EK HE HEE HE EE HK HE EEE DE EE HK HK HK EHH HH HK KK HHH KKK KKH 
TRANSACTIONS FOR NDS PRINTER SUPPORT 

Pet PSPS SESS SE SESS SSS LS SSS SSS SS SESS SESS ESSE ETE SESS SSS SS SSE PES SSS S ST EES SS: 
APPLCTN PSB=FORMSET,PGMTYPE=TP 
TRANSACT CODE=FORMSET,MODE=SNGL 
APPLCTN PSB=APAK,PGMTYPE=TP 
TRANSACT CODE=APAK,MODE=SNGL | 

DE DE HE KDE DE DEH EE DE DE DE SEN WE DE DK DK DE DE DK DE DE DE DK DE DEE DK DE NE HE DE DE DK HEE ED DK DK EK DDE EE OE DK DE HEE HEE DK EEK EH HEE HK HEH 
SPACE 3 
TITLE ‘TERMINAL DEFINITIONS’ 

HE BE HE DDE HE HE DHE DEE DE HE DK DEE DE HE DHE DK DEH HE DE HK HE DK EK HE DEK EK HE HK HEE HE HEH HK HE HEH HH HEH HEH HH HHH HK HK HK HH 


RRR KK TERMINAL DEFINITIGNS KK KKK 
XK RKX XKXKKX 
KKK HK LOCAL READER, PUNCH, PRINTER, SPOOL HK KKK 


HK HE HK HK HE EH EK HK HK HK KK KE KE EK EK EEK KEK KE KEK KKK KKK HK KH IKK KH HK HHH HK HH KH KKK KK KK KKK 


PRINTER LINEGRP DDNAME=PRINTER, x 
UNITYPE=PRINTER 
LINE ADDR=O00F 
TERMINAL 
NAME PRINTER 
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READER LINEGRP DDNAME=READER, | |  & 
UNITYPE=READER 
LINE ADDR=01C 
TERMINAL LTERM=PRINTER 


PUNCH LINEGRP -DDNAME=PUNCH, = 7 ‘. 
UNITYPE=PUNCH | 
LINE ADDR=01D 


TERMINAL 
NAME SPOOL2 | -FOR DATA DICTIONARY 
SPOOL LINEGRP DDNAME=(SPL1,SPL2,SPL3)> x 


UNITYPE=SPOOL 
LINE BUFSIZE=1420 
TERMINAL FEAT=AUTOSCH 
NAME SPOOL1 ~FOR DATA DICTIONARY 


HE DE HEHEHE HEHE DE HEHE DE HE HEE HEH HE KDE HEE HEH IEE DE HEHE OK HEHE EK IK IE EK KEK KK KM KKK NK 
*¥*¥ BTAM 377072770 TERMINAL DEFINITION | HM KKH 
3 DEE DEE HEHEHE DE NE ED HE EE EH DEE DK HE DE EE KE DK EK DEE IE HE EK IE EK HK HEE HK HK KKK HK HEN 

LINEGRP DDNAME=BSC3770P,UNITYPE=2770,CODE=EBCDIC 

LINE ADDR=074,FEAT=BUFEXP 

TERMINAL ADDR=C1,COMPT=CPTR,CARD,PTR),FEAT=(C1,BUFEXP ) 

NAME PTR3770,COMPT=1 


NAME PCH3770,COMPT=2 
NAME DSK3770,COMPT=3 
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IMS REMOTE 3770 


TYPE UNITYPE=SLUTYPE1 


DE HE HE HE HE HE HE DE HE IE HE HE HE HE DE HK DEE DE DE DE DEK HE DE DE HE DE HK DE DE DE DEE DE DE 5, SEE DE DE DE DE EE HK DE DE DE DE DE DE DE KE DE DE DE KE DE DE DE EOE EEE EE EK 


** 3770 PROGRAMMABLE DEFINITIONS FOR BATCH LU (1) KKH H 
HEHE DE DE DE HEHE HE DE HE DE DK DE DE HEHE HE DE DK DK DEE DE DE DEK DK HE HEE HEHE DE DE HE HEE DE DE DE I HEE HE HK DE IE HK DK HE HE DE HE EE HE HK IE HE HE EEK EH HE HE HE 


P70LU1 TERMINAL NAME=P70LU1, NAME CHANGE FOR ABOVE LU 
COMPT1=CONSOLE, 
COMPT2=CTRANSDS1,MFS-SCS2), 
COMPT3=CPRINTDS1L,MFS-SCS1), 
COMPT4¢=USERDS1 

NAME P7OCON 

NAME P7OTRAN, ICOMPT=2 
NAME P7O0INTR,COMPT=3 
NAME P7OUSER,ICOMPT=4 
NAME P7OUSERL,COMPT=4 
NAME P7O0USER2,COMPT=4% 


K K K K 


C7O0LUI1 TERMINAL NAME=C70LU1, SAME LU AS P7OLUIL BUT 
COMPT1=CONSOLE, BECAUSE OF 4 COMP LIMIT IN 
COMPT2=CREADERI1,MFS-SCS2), IMS, NEED THIS FOR CARD 
COMPT3=CPUNCHL,MFS-SCS2), SUPPORT 
COMPT4=USERDS1 

NAME C70CON 

NAME C7ORDR,ICOMPT=2 
NAME C7O0PUN,COMPT=3 
NAME C70USER, ICOMPT=4% 
NAME C7O0USER1,COMPT=4 
NAME C7O0USER2,COMPT=4 


K KK K 
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IMS LOCAL 3274 


SS. o 20.2.0. 0.2 2.2.0.0. 2 2.2 2.0.0 2.0. 0.0.0.0,.0,5.5.2.0,0.5.0.0.0,5,.0,0.5.2,0,0,9,5,0,9,0,.0.0,.0, 2.0. 0.0.0,0,.0,5.0,0.0,.0.0,0.0,. 0.0.0 0,54) 


*X 3274-1A SNA CHANNEL ATTACHED PRINTERS XR RH 
PE SPSS SELES SESE L ESE SSE S SS ESE PES SESS SESS SSS SPS ESSE PSST SESS SST EPS TSS ESS SE 


LHAPAO? TERMINAL NAME=LHAPA07, | x 
COMPT1=CCONSOLE,BASIC-SCS1), x 
MODETBL=SCS, x 
OUTBUF=768 | 


NAME LHAPAO7 


LHAPAO0S TERMINAL NAME=LHAPADS, as 
COMPT1=CCONSOLE,MFS-SCS1);, % 
OUTBUF=768 | 


NAME LHAPAO08 


IMS REMOTE 3274 PRINTERS 
ES STS ESTE SSS ES SESE SPSS SSE SSE SESS SSE PSPS S SSS P SESS EST SE SESS SSS ESET ST EES SS 


KX 3274-1C SDLC ATTACHED PRINTERS XHKR 
PP PSS SEEPS SS LESS SESS SESS SESE SESS SS SES SSS TESS SES SSE PES SSE SSS STE SS SESS TES 


SDLCPAO07 TERMINAL NAME=SDLCPAO7, 


COMPT1=CCONSOLE,BASIC-SCS1), | x 
MODETBL=SCS, | % 
OUTBUF=768 | 


NAME SDLCPA07 


SDLCPA08 TERMINAL NAME=SDLCPA08, | % 


COMPTL=CCONSOLE,MFS-SCS1), x 
OUTBUF=768 


NAME SDLCPA08 
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IMS REMOTE 3276 PRINTER 


3 HE HE HEH HEHEHE HE HEHE EH HE EEE DK HE EE EK HEE HEE EE DEK EE EE EK HE HK HK HE HE EE EEK KK EEK HK HEHE 
xX 3276 SDLC ATTACHED PRINTERS RKKK 
PE SPSS PS SESS SESS SESS SSS SESS ESSE SESS SESS TEEPE PTET SSS SSS SSS SESS S ST ESSE SSS SS 
SPACE 4 
SDLC76P7 TERMINAL NAME=SDLC76P7, * 
COMPT1=CCONSOLE,BASIC-SCS1), 
MODETBL=SCS, x 
OUTBUF=768 
NAME SDLC76P7 


* 


SDLC76P8 TERMINAL NAME=SDLC/76P8, * 
COMPT1=CCONSOLE,MFS-SCS1), % 
OUTBUF=768 


NAME SDLC76P8 


IMS REMOTE 3790 PRINTERS 


HK HK HK HK HK HE HK HK HE KH KH KE KK HE HK HK KK KH IK HK KH HK HH HK HK HK HHH HH KK HK KKK KKK KKK KHKHKHKK KKK 


** NODE=BP379011 LTERM=BP11 3790 BULK PRINT 1 HR KX 
HEHEHE HE DEE DE IE HEHEHE DEE HEE DE DE DE HE EEE DE DE DE DE DK DEE DE DE DK DE EEE DED DK DK OE DE DE DE OE DE DK DK OE DE DE DE DE DEE EDEN RRR 


BP379011 TERMINAL NAME=BP379011, x 
COMPTI=CPRINTERI,MFS-SCS1), x 
MODETBL=BLK3790 

NAME BPlI1 
HEHE HEE HEHEHE HE DEK HEE DE HE HE HE DE I DEE EEK EE DE EH EE HE IE EK HK HEE DE DE DHE HE DE DE DK DE HE DEE EK IE OE DE KE EEK HE 
** NODE=BP379012 LTERM=BP12 3730 BULK PRINT 2 % XR 


HE HK HEHEHE EEE EK KK EK EK KE HE EK EEK EK KK EE EEK EE KK HK HK KKK HH HK HEH HEH HK HK HEH HK KKK KKK KKK 


BP379012 TERMINAL NAME=BP379012, * 
COMPT1=CPRINTER1L,BASIC-SCS1), 
MODETBL=BLK3790 

NAME BP12 


IMS REMOTE 3790 TYPE 2 BATCH 
PES SSS SSPE SESS SESE SPSS SESS ELS SESS SES ESS S SPSS ESS SE PSSST SS SESS TSS ST ESS SS 


XXX 3790 TYPE 2 BATCH RRR 
HH HK HK IH EHH EK EK HK EEE EE HE EE EEE EE EE EEE EEK KEE EE EEK KK KKK 
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BT379011 TERMINAL NAME=BT379011, 
COMPTI=CPRINTERL,MFS-SCS1), 
COMPT2=CPRINTDSL,MFS-SCS1), 
COMPT3=CTRANSDS1,MFS-SCS2), 
SEGSIZE=256, 

OUTBUF=256, 
MODETBL=BAT23790, 
OPTIONS=CNORESP,OPNDST,NBSELM,NODISCON) 
NAME BTLIMSG,COMPT=1 
NAME BT11PDS,COMPT=2 
NAME BT1LLITDS,ICOMPT=3 


KK K KK K RK 


BT379012 TERMINAL NAME=BT379012, 
COMPTI=CPRINTERI,MFS-SCS1), 
COMPT2=CPRINTDSI,MFS-SCS1), 
COMPT3=CTRANSDSL,MFS-SCS2), 
SEGSIZE=256,; 

OUTBUF=256, 

MODETBL=BAT23790, 

OPTIONS=CNORESP, OPNDST,NBSELM, DISCON) 
NAME BT12MSG,COMPT=1 
NAME BT12PD5,COMPT=2 
NAME BT12TDS,ICOMPT=3 


K K K K K K XK 


IMS SLUTYPE2 DISPLAYS 
TYPE UNITYPE=SLUTYPE2 


2S 2 2.2.2.0. 2.9.5. 0.5.0. 0.0. 0.0.0.0 .5. 0.5.0.9. 0.0.0.0.0,.0,0. 0.0, 0.0,0,0,5, 0.0.0.0. 0.2.0, 0,0.5,0,0,0,. 5.0.0, 0.0. 0.9.0. 0.0.0. 0.0, 0.0. 0,5,5)3 


KKKKX 3274-1A SNA CHANNEL ATTACHED DISPLAYS KKK 
PESTS SSS SSS SSS ES ESS S SSS SSS SESS ESSE SESS ESE SESS SST TSE SSS PETES PSSST SET SSS SF 


LHAPAOQ]L TERMINAL NAME=LHAPADOL, 3278-1 
TYPE=3270-A1,SIZE=(12,80), 
FEAT=IGNORE, 
OPTIONS=CTRANRESP,COPY,PAGDEL,OPNDST), 
OUTBUF=1536 
NAME LHAPAOL 


K K K 


LHAPAO2 TERMINAL NAME=LHAPAO2, 3278-4 
TYPE=3270-A4,S5IZE=(43,80), 
FEAT=IGNORE, 3 
OPTIONS=C(TRANRESP,COPY,PAGDEL,OPNDST);, 
OUTBUF=1536 


K K K K 
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NAME LHAPA02 
SPACE 4% 
LHAPAOS TERMINAL NAME=LHAPAOS, 


TYPE=3270-A3,SIZE= 


FEAT=IGNORE, 


OPTIGNS=CTRANRESP, 


OUTBUF=1536 
NAME LHAPADOS 


LHAPBO1] TERMINAL NAME=LHAPBO1, 


TYPE=3270-A2,S5SIZE= 


FEAT=IGNORE, 


OPTIONS=CTRANRESP, 


OUTBUF=1536 
NAME LHAPBOL 


SNA APPLICATION INTERFACE 


3278-3 
(32,80), 


COPY,PAGDEL,OPNDST), 


3277-2 
€24,80), 


COPY,PAGDEL,OPNDST), 


CIMS) 


K K K XK 


K K K 


SS St. 2.2.0. 0.2,0.0.2.0.0.0. 0.0.0.0. 0. 0.0.0,.0.5.0.0.0.0,0.0,0,0.0,0.0.0. 0.0.0.0, 0,.0.0.0. 0.0.0. 0.0.0 0.0.0.0, 0,.0. 0.0.0.0. 0.0.0.0. 5, 0.5,0.8,) 


¥ XX KX 3274-1C SDLC ATTACHED DISPLAYS 
HE HE DE DE DE HEHE DE DE DE HEE DE DE DE DE IE HE IEE HE DE DE DK DE DK HE EE DK HK HE EK KH EK HK HEH K HHH RK ARK KKK 


SDLCPAOL TERMINAL NAME=SDLCPAO0L, 


TYPE=3270-A4%,SIZE= 


FEAT=IGNORE, 


OPTIONS=CTRANRESP, 


OUTBUF=3600 
NAME SDLCPAO1 


SDLCPA02 TERMINAL NAME=SDLCPA02, 


TYPE=3270-A4,SIZE= 


FEAT=IGNORE, 


OPTIONS=CTRANRESP, 


OUTBUF=3600 
NAME SDLCPAO02 


SDLCPA03 TERMINAL NAME=SDLCPA03, 


TYPE=3270-A3,SIZE= 


FEAT=IGNORE, 


OPTIONS=CTRANRESP, 


OUTBUF=3600 
NAME SDLCPAO03 


SDLCPA0G TERMINAL NAME=SDLCPA04¢, 


TYPE=3270-A3,SIZE= 


FEAT=IGNORE, 


OPTIONS=CTRANRESP, 


OUTBUF=3600 
NAME SDLCPA04 


SDLCPBO1 TERMINAL NAME=SDLCPBO1, 


3278-4 
(43,80), 
COPY,PAGDEL,OPNDST), 
3278-4 
(43,80), 
COPY,PAGDEL,OPNDST), 
3278-3 
(32,80), 
COPY,PAGDEL,OPNDST), 
3278-3 
(32,80), 
COPY,PAGDEL,OPNDST), 
3277-2 
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TYPE=3270-A2,SIZE=(24,80), | x 
FEAT=IGNORE, | = x 
OPTIONS=C(TRANRESP,COPY,PAGDEL,OPNDST), | x 


OUTBUF=3600 
NAME SDLCPBO1 


HEHE HEHEHE HEHEHE HEE HEHE EEE DEE HE ETE HE IEE KE HEHEHE HEHE HEHEHE HEE HK IEEE MRR MRM RK KKK KK 


HHH 3276 SDLC ATTACHED DISPLAYS KKK 
HK HEHEHE HEHEHE HEHE HEH HEHEHE HE DE HE SEE HE IE HE DE EH HK HE HE HE HE HEE HEE HE EE EK HEHE HEH HE DEE HEHE HC HE HEE HE EH HEE HEHEHE KKK 
SDLC76P1 TERMINAL NAME=SDLC76P1, 3276-12 ae: 
TYPE=3270-A2,S5IZE=(24,80), x 
FEAT=IGNORE, | % 
OPTIONS=(TRANRESP, COPY, PAGDEL,OPNDST), x 


OUTBUF=3600 
NAME SDLC76P1 


SDLC76P2 TERMINAL NAME=SDLC76P2, 3278-2 
TYPE=3270-A2,S5IZE=(24,380), 
FEAT=IGNORE, 
OPTIONS=CTRANRESP,COPY,PAGDEL,OPNDST), 
OUTBUF=3600 
NAME SDLC76P2 


K K K K 
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IMS REMOTE 3790 


EK HEHEHE HE HEE HEE HE EE EE EE DE EE DE IE DE IE EE DE EE EE EEE DE DE SEEK DE HE DE HE DK SE KE SE HK DEK SE EK HE HE HE KE EK EEK EE KEKE 


¥XXRX 379073270 COMPATIBILITY MODE - 3790 KKK KK 
HE HEHE HE DE DE DE DEE DE DEE DE HE EK DC DE DD HE EEE DE DE DE DE DEE DEE DE DE EEE DK DE DE DE DE DK DE DE DE DE KK DEE EE OEIC KO OEE EMM KKK 


CM379011 TERMINAL NAME=CM379011, 
MODEL=2, 
FEAT=CPFK,NOCD,PEN), 
OPTIONS=CTRANRESP,COPY,PAGDEL,OPNDST), 
OUTBUF=1536 
NAME CM1I1 


K K K K 


IMS REMOTE 3770 PROGRAMMABLE 


TYPE UNITYPE=SLUTYPEP 


re 2.2.2.2. 0.2.0.2. 0.5. 0.2.0.0.0.2.2,5,.9.5.5.0.0.0.5,0, 0.0.0.5. 0.0.0.0, 0,0.0, 0,0, 5,0,0,0.0,0,.0,0.0,0,0,0,0,.0, 0.0, 0,0,0, 0.0. 0.0.0,0, 0,0, 0.8.8.: 


KKK SLUTYPEP - 3770 SNA PROGRAMMABLE COMMUNICATIONS RX KKK 
HE HEHE HEH HE EE HE HEH HEHE HK EE DE HEHE HEE HC DE KE EE HE HK HK EE DE DEK IK OK EC DE DE DEK OK DKK EEE KKK KKK 


BA3770PV TERMINAL NAME=BA3770PV, OLD NAME FOR PC SESSION 
MSGDEL=SYSINFO, DELETE THIS TERMINAL AFTER 
COMPT1=CPROGRAMI1, BASIC), NCP HAS P7OLU2 DEFINED 
OPTIONS=CFORCRESP,PAGDEL,OPNDST,OPTACK,BID), 
OUTBUF=256, 

SEGSIZE=256 
NAME LSNAPC70 


KK K K K 


P70LU2 TERMINAL NAME=P70LU2, 
MSGDEL=SYSINFO, 
COMPT1=CPROGRAMI1, BASIC), 
OPTIONS=CFORCRESP,PAGDEL,OPNDST,OPTACK, BID), 
OUTBUF=256, 
SEGSIZE=256 
NAME P7Z0PC2 


K K K K XK 


P70LU3 TERMINAL NAME=P70LU3, 
MSGDEL=SYSINFO, 
COMPT1=CPROGRAM1, BASIC), 
OPTIONS=CFORCRESP,PAGDEL,OPNDST,OPTACK,BID), 
OUTBUF=256, 
SEGSIZE=256 
NAME P70PC3 


K K K K XK 
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3 HE HE IE DE DE DE DE DE HE HE DK DE DE HE DE HE DE HE DE DE IE EE DK HE DK DEE HK DE DE HE DK DE DE HE DE HK DK DE DE DE DE DE HE DE DE IE HE DE DE DE HK DE DE DE DE DE HE HE DE HE HE DE HE DE EE KK 


XXX XK RX 
KXRX KK SLUTYPEP ~- 3790 USER PROGRAMS - 3790 > KKK RH 
XXX XX KKK KK 


HEHE HEH HEHE EH HEHE HE DE HK EE HE EE HE EE DE EK SE SEE KE DE DE KE DE HE HE DE SE DE DE DE HE DE IK DE DK DE DE DE DE HK HEE EK FE DK HK HE DE IE HE DE DE EE EE EK KH 


UP379011 TERMINAL NAME=UP379011, 
| MSGDEL=SYSINFO, 
COMPT1=(PROGRAML,BASIC), 
OPTIONS=C(FORCRESP,PAGDEL,OPNDST,OPTACK,BID), 
OUTBUF=256, | | 
SEGSIZE=256 
NAME UP1I1P1 


K K K K XK 


TITLE "TERMINAL DEFINITIONS - 3790 INQUIRY’ 
TYPE UNITYPE=3790 


HEHE EE HE HE DE HE HK HE HE HE HE DK HEH HK DE HE DE HE IKE HE HK DK HE DK DHE DE DE HE DK DE HEH HE HK HE HE HEHE DK DK HE IK DE HE HK HE HK HE HEHE HK DE HEH DE HEHE KEE 


KKK 3790 INQUIRY RKKKR 
KRKKX KRHRKKX 
KR RK NODE=INQ02 LTERM=INQO2 — RARKK 
NXKKN | HHH KH 


HE KH HEHE HK HE HEHEHE HE HEE IE HE HK HE HEHE HK HE DE HE IE HE HE EE DE HE HK DE DE HE HE DE DE HE HE DE DE HE HE HE DE DE HE IE HE HE DE IE HE EE KK EEK KK KKK 


INQO2 TERMINAL NAME=INQO2, : | pS 
OUTBUF=256, | x 
OPTIONS=C(NOPNDST) 

NAME INQO2 
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IMS REMOTE 3270 


TYPE UNITYPE=3270 


KKK 


DE HE HK HEE HEE IE EK EE HE EEK EK EEK EEE HK EK KK EK EEK KEK HE KEK HK HK HHH HK HK HK HHH HK HAKKAR KK KKK ARR AKKKKKX 


*X* HX VTAM 3270 TERMINAL DEFINITIONS 
KK KKK 

X¥XXX SDLC 3271 CONTROLLER 

KKK KX 


XK NODE=LU3270V0 LTERM=LU3270V0 3277 
KKK NX NODE=LU3270V7 LTERM=LU3270V7 3286 
XX XXX 


XXXXX 

XX HK LOCAL 3270 CONTROLLER 

XK 

¥XXXX NODE=LU4C0 LTERM=LU4C0 3277 
XXX 


KKKKX 
KKHKKH 
XXKKX 
HR XKX 
NKKKK 
KKRKXKX 
KK KKK 
KH KK 
% MN NMX 
KRKKX 
HR KKK 
KRRKX 


Set et tsi ttt teste test titi tt tet ttt tress ts ttititttt tse tttt estes titi ttt ttt st 


LUS4CO TERMINAL NAME=LU4C0, 
UNIT=3277, 
MODEL=2, 
FEAT=C(PFK,NOCD,PEN), 
OPTIONS=CTRANRESP,PAGDEL,OPNDST) 
NAME LU4&CO 


LU3270V0 TERMINAL NAME=LU3270V0, 
UNIT=3277, 
MODEL=2, 
FEAT=(PFK,NOCD,PEN)> 
OPTIONS=CTRANRESP,COPY,PAGDEL,OPNDST) 
NAME LU3270V0 


LU3270V7 TERMINAL NAME=LU3270V7, 
UNIT=3286, 
MODEL=2, 
PTRSIZE=120 
NAME LU3270V7 
TETEe: 


HEHE HK HK HE HEH EK HE IE EE EEK EK IK EE EK KK HK EK HEH HEH HK EH KK KEK KK HK KH KKK KKK KKK KKK KKK KKKKK 


IMSGEN SUFFIX=0, 
NODE=CIMS115,IMS115,IMS115), 


SNA PRODUCT INSTALLATION GUIDE 


K K K MK 


K KK K 


*K 


%* 


x 
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LKPRT=CXREF, LIST),LKSIZE=C300K,60K),LKRGN=400K, 
JCL=CYGHL, C3MD3665L00065Y),IMS,A, CREGION=2048K,MSGLEVEL= 
1,CLASS=N)), 

SCL=C1) 


OBJDSET=IMS115.OBJSUFO, * 
USERLIB=IMS115.RESLIB, % 
MACLIB=UTILITY, x 
PROCLIB=NO, x 
ASM=H, % 
ASMPRT=ON, % 
x 
% 
x 


MELTELETETTITITTTCTITT STITT TPCT ETT TTP TTT TTT CECT TTT LETTE TTT TELE 


RHK KN END OF SYSTEM DEFINITION FOR IMS5 XXKKK 
HEHE HE HEHE HE DE DE DEE DE DE DK BE DE DE DE DEE DE DK DE DEE DE DE HE DE DE HE DE DE DE HE DE DE DE DK HEE DE HK DE DE DE DK DK IE DE DE DE DK DK OE DE DE DK DE DEE EEE EK 
END 
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